Oana 
OO 
COO 
Oana 
QO 
Oona 
aon 
Oona 
OOo 
QOon 
Oona 
Oona 


SOOO AIAIAOAOIOAIOIAOAI 
SOOO OAIOAIAAOAAOL 
AOOOIOOIOAIAIAIAIAAOLN 


OOo 
PO 
Oona 
OOo 
OOo 
QO 
OO 
COO” 
COO 
OO 
COO 
COO 


000000000 PPPPPPPPPPPP 
000000000 PPPPPPPPPPPP 
000000000 PPPPPPPPPPPP 
0 000 PPP 


0 PPP 
000 000 PPP PPP 
000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPP PPP 
000 000 PPPPPPPPPPPP 
000 000 PPPPPPPPPPPP 
000 PPPPPPPPPPPP 
000 000 PPP 
000 O PPP 
000 000 PPP 
000 000 PPP 
000 000 PPP 


0 000 P 
000000000 PPP 
000000000 PPP 
000000000 PPP 


**F ILE**1D**COPYMAIN 

ccccccce 000000 PPPPPPPP YY YY MM MM AAAAAA III! NN NN 
ccccccce 000000 PPPPPPPP YY YY MM MM AAAAAA III! NN NN 

cc 00 00 PP PP YY YY MMMM MMMM AA AA I] NN NN 

cc 00 00 PP PP YY YY MMMM MMMM AA AA II NN NN 

cc 00 00 PP PP = MM MM MM AA AA II NNN 

cc 00 00 PP PP yy YY MM MM MM AA AA II NNNN NN 

cc 00 00 PPPPPPPP YY MM MM AA AA I] NN NN NN 

cc 00 00 PPPPPPPP YY MM MM AA AA II NN NN 

cc 00 00 PP YY MM MM AAAAAAAAAA II NN NNNN 

cc 00 00 PP YY MM MM AAAA I] NN NNNN 

cc 00 00 PP YY MM MM AA AA II NN NN cece 

cc 00 00 PP YY MM MM AA AA II NN NN eeee 
cccccccc 000000 P YY MM MM AA AA III NN NN eeee 
cccccccc 000000 PP YY MM MM AA AA III! NN NN eoee 

LL IIIT] SSSSSSSS 

LL III] SSSSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] Sh) 

LL I] SS 

LL I] SS 

LL I] SS 

LLELLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 
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; 1 001 © MODULE COPYMAIN (IDENT = ‘v04-000', 
3 § 0 ¢ 4 MAIN = COPYSCOPY 
3 0 " )z 
; ¢ ¢ ! BEGIN | 
: $ 4 H aati lahat alll 
; :* 
3 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
ee | 009 1 i DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
: 19 BiY : is ALL RIGHTS RESERVED. . 
; \¢ 001g 1 ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
; 1 01 1 '* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
3 14 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * | 
; 15 0015 1 !* (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

; 16 Bote 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * | 
: if sid EA : - TRANSFERRED. ® 

Py ; * 

3 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

H sf 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

3 5 it : i. CORPORATION. . 

: $6 $058 1 i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 

i 3 0056 | is | 
: si 0037 4 PITTITITITILILL LLL LLL LLL LLL LLL LL LLL LLL LLL Tittle | 
3 8 1! 

: § $080 i 'o+ 
: 31 0031 1 | FACILITY: COPY | 
: 38 0038 | ABSTRACT: 

F 35 0035 1: This utility program creates a copy of one or more user-specified 

3 6 0036 1! files. Two or more files may optionally be concatenated to 

3 $i ith : create a single output file. 
; 33 0059 | ENVIRONMENT : | 
; 41 0041 1 | AUTHOR: Ward Clark, CREATION DATE: 19 August 1977 

; és O48 i Modified by: 

> «45 bes 1 v03-014 TSKOO15 Teger Krichevsk 26-Jul-1984 
3; © B68 1! Use the constant 32 for the multi-block count, instead of 
3 rh be : the system multi-block count. | 
: 49 $069 1! v03-013 TSKO014 Tamar Krichevsky 9-jun-1984 
3 0 0050 1! Avoid an access violation by have BYPASS_CONCAT return a value. 
: 1 051 1! If this value is true, then stop processing. If it is false, 
: 2g O26 : then continue copying files. 

; 54 054 1: v03-012 TSK0013 Tamar Krichoveky Toctlnn tt 

; a. 2 Rearrange the calls to CLISGET_VALUE and LIBSFIND_FILE so that 

: 28 026 1! a@ command such as COPY a.a,a.8,8.8,8.8 NL: will copy every file, 

; 057 1: instead of every other file. 


6 
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; 8 0 1! 

$ 9 be 1! v03-011 TSK0012 Tamar Krichevsky 25-Apr-1984 

; 60 060 1! a check, after trying to open the output file, to be 

; «61 061 1: sure that if the current operation is an APPEND and the output 
; © $06 1! file was not found, then processing should stop. No use 

: o7 +t4 : appending to a non-existant file. 

3; 669 065 1! v03-010 TSKO011 ,, Jamar Krichevsky 17-Mar-1984 

3; &@ 066 1! Add a missing ‘’."’, so that the correct files are opened when 

s; 67 0067 1! the input file has a wildcard in it's specification. Copy the 
; 0068 1! resultant file file name from LIBSFIND_ FILE into the input 

3; 8 $? 1! file's NAM block and IN_NAME_DESC. Otherwise, the confirm 

» 070 1! prompt, log messages and error reporting would use the wrong 

; 4! te : information. 

toe $058 , 7 v03-009 TSK0010 Tamar Krichevsky 27-Feb-1984 

:; 74 0074 1! Replace COPY's scheme for allocating 1/0 buffer pool (The 1/0 
| 0075 1! buffer pool is area in which COPY maintains its user buffers 

: 76 0076 1! for RMS calls.) The old scheme allocated virtual memory for 

3 77 0077 1! the 1/0 buffer pool based on the processes ares set size. 

; fF 0078 1! The new scheme alloates enough virtual memory to hold the 

: ie site ; largest record or block transfer instead. 

: 2) sed : Convert input file parse and searching to LIBSFIND_FILE. 

; 0083 1! v03-008 TSK0009 Tamar Krichevsky 15-Feb-1984 

; | 84 0084 1! Fix RMS_SETUP so that the incompatible attributes message is 

: 3? #4 : not issued when the input or the output device is network. 

s 87 0087 1! v03-007 TSK0008 Tamar Krichevsky 3-0c t-1983 

; Bw 0088 1! Fix RMS_SETUP so that the incompatible attributes message is 

; 8 0089 1! not issued when the input device is a unit record device. 

; 90 0090 1! The input and output devices have to be the same kind of devices 
; 91 0091 1! and be file structured before the information in the file header 
; 4 493 : can be compared. 

; «694 0094 1! v03-006 TSK0007 Tamar Krichevsky 6-Sep-1983 

; 695 0095 1! Fix an Access violation introduced in V30-005. This time 

: 38 Boe ! wild card copy operations didn't work. 

; | (98 0098 1! v03-005 TSK0006 Tamar Krichevsky 1-Sep-1983 

; 99 0099 1! Fix access violation introduced in V30-004. Append operations 
; 10) ogi : didn't work. 

; ioe 4 1! v03-004 TSK0005 Tamar Krichevsk 29-Aug-1983 

: 10 103 1! se how the output file's XAB chain is reinitialized at the 
: 104 104 1! end of COPYSCOPY. This change has been made so that COPY 

3; 105 105 1! adheres to the new philosophy about the propogation of 

3 198 196 : file protection and revision dates. 

; 108 198 1! v03-003 TSKO0004 Tamar ae Scoavany 33-Jan-1983 

: +4 + ' Replace the command language interface with the the new CLI. 

s 111 3 © Add COPYSCHECK_FILE_FOR_MATCH routine which calls LIBSQUAL_FILE_MATCH 
3 16 1 : : to see if the Tnput filé should be copuied to the output file. 
: 114 114 1! 


v03-003 TSK0003 Tamar Krichevsky 29-Mar-1982 
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Allow /NOTRUNCATE to work for ngenyent uous sequential 

by correcting the IF statement in COPYSCALC_ALQ which dec 
if the output file will be truncated or the same size as 
the input file. Previously, Ron=cont /auous sequential fi 
were a “7 being truncated, even if /NOTRUNCATE was speci 
Now, if /NOTRUNCATE is given. the allocation of the input f 
is used for the output Til 


iss-32 V4.0-742 
JCOPYMAIN. B32: 1 
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id 

le 
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le 
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v03-002 TSK0002 Tamar Kr tehoveny 22-Mar-1982 
Correct logic in IF statement which forces record mode 1/0 
in RMS_SETUP. Record mode copies to a foreign disk were being 
attempted instead of block mode. 


v03-001 TSK0001 Tamar Krichevsky 16-Mar-1982 
Force record mode operations if input and output devices are 
qose neotane and one is ANSI while the other is mounted 
oreign. 


v021 WMC032 Wayne Cardoza 22-Dec-1981 
Don't allow coer of a directory as a file. 
Let the C) be displayed in mag tape log messages. 


v020 WMC026 Wayne Cardoza 10-Dec-1981 
Fix incorrect ordering of PARSE. 
Fix log messages for network devices. 


v019 wMC003 Wayne Cardoza 17-Nov-1981 
Quit when operator aborts a mount request. 
v018 WwMC002 Wayne Cardoza 02-Nov-1981 


Don’t try to create directories on record devices. 
Make sure directory created in correct directory. 
Don't print directory name for non-directory devices. 


v017 TMHO017 Tim Halvorsen 06-Sep-1981 
Do not issue "'N files created’’ if the number of files 
created is only one. 
X0016 KRMO0007 Karl Malik 11-Feb-1981 ~ 
Modified COPYSCOPY to not attempt to create a directory 
when the output is a network device. Instead, issue a 
MSG$_NOTCREDIR (new) warning message and continue. 


x0015 KRM0005 Karl Malik 14-Jan-1981 
Init the block_count and record_count in CREATE_DIR so as 
not to use the previous value. Also, modified REPORT_NAMES 
to issue a ‘‘created’’ message when a subdirectory is Created 
(rather than a ‘‘copied’’ message). 
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x0014 LMKO0001 en Kawell 27-Mar-1980 
66 Correct computation of USZ and MBC for record mode. 
x0013. TMHOO12 Tim Halvorsen 31-Jan-1980 


Do not use LRL as the USZ for record mode I/0 as the LRL 
can sometimes be incorrect when appending files together 
with differing LRL's. COPY should be fixed sometime in 
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the future to make the LRL on a concatenated file correct. 


JAKO0012 de ah Sy 07-Dec-1979 

Set ASY bit in ROP after SCONNECT when doing block 17s to 
avoid having to issue a SWAIT after the connect. This is 
necessary for network block 1/0 because a network SCONNECT 
actually causes DAP messages to be exchanged and thus does not 
complete immediately. 


TMHO011 T. Halvorsen 19-Dec-1979 
Do not create a directory on the output side for magtapes. 


TMHOO010 T. Halvorsen 17-Nov-1979 
Add GLOBAL ROUTINE msg_number from its own module to 
this module to avoid conflict with require file of the 
same name in the update procedure. 
It had one modification: 

15-Nov-1979 


T. Halvorsen 
Do not add in COPY/APPEND facility unless high-order 
word is non-zero. 


TMHOO009 T. Halvorsen 24-0ct-1979 

If input file is a Sirectory file, then either create 
a directory on the output side or do nothing depending 
on whether the directory already exists or not. 


T. Halvorsen 16-Aug-1979 
Move fixed overhead to here from COPY.REQ and increase 
it by another 10 to avoid copy from magtape wsl problems 


T. Halvorsen 30-Jul-1979 

Make RMS_SETUP fill the UBF/USZ fields for all device cyper 
due to a change in RMS which causes move mode to always be 
used (locate mode had some timing windows). 


T. Halvorsen 21-Jul-1979 
Remove 60 second timeout from input RAB 


T. Halvorsen 14-Jul-1979 
Detect insufficient i set size to avoid ‘‘internal logic 
error’’ message when allocating negative amount of storage. 


JAK0004 J. Krycka 16-Mar-1978 15:00 
To support file append over the network, omit ‘incompatible 
attributes’ check if NET bit is set. 


JAK0003 2. krycke 16-Mar-1978 14:30 
To support copy of files in VFC format over the network, 
put RHB address in both input and output RABs if NET bit is set. 
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18-04-78 C. Peters Change INCLUDE file declarations to suit VMS native compiles. 


Remove SHR$_HASHCONCAT, SHRS_INCOMPAT Literals. 
PY"to reflect modiffed behavior. 


8 C. Peters Change co 
Include COPY.REQ. Delete LITERAL definitions for general use, status flags. Delete 
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cro definitions for commonly used status flags. 


ma 
Rename COPY_STATUS to COPYSCLI_STATUS. 
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Don't include RMSMAC.L32, STARDE.L32. Include STARLET.L32 ye SVS9 IORARY. 
Delete external literal declarat — of RMS status codes. The ore in STARLET. L32 too. 
Delete GLOBAL variable COPY CLI STATUS. a} t in a new module tory YGBL 2. 
he! SOTFILE. GET_OUTFILE, call COPYSGET *ouTFiL. in COPYSPECS. 
I ing GET. thie nod cpht COPYSGET_INFILE, in COPYSPECS.832. 
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af 
Rename IN_OPEN_ERR OR to “correiuors ERR; OUT OPEN. ERROR to COPYSOUTOPN_ERR; 
OSE OUTFILE to COPYS¢ LOSE_oufF. 

Instead of call ng OPEN_OUTFI LE catt COPYSOPN OUTFIL, in COPYSPECS. 

Rename OUT_CLOSE_ERROR fo isbrr Ine OCLOSE_ERR. 

Remove declaration for . Put this in COPY.REQ. 

Remove declaration for vn nsmet et ; put it in COPY.REQ. 

Delete fous ine rer se OUTFILE. shi routine is replaced - COPYSOPN_OUTFIL, in COPYSPECS. 
Rename CALCULATE ALG to COPYSCALC -ALQ and make it a global routine. 

Rename MESSAGE. OMBER o COPYSMSG_NUMBER and make it a global routine. 

Rename CL] SRESOLT to cOPYSCLI_ RESOLT. Declare it a 900 obal in COPYGBL 


Move setting of CONCAT_QUAL and a... ONCAT *OUAL te see routine GET_CMD_Q 
Move OUTFILE_OPEN a KPPEND_COMMAND bits into COPYSSEM_STATUS from cOPYSCi gh j™¥s- 
Remove RMS declarations for Tnput file descriptions to file called FILINP 
Remove RMS declarations for guteut file descriptions to file called tee B32. 
Rename PARSE_INFILE to Ab INFIL. 
Move PUT_MESSAGE and PUT SSAGER macro definitions to include file COPYMSG.REQ. 
Move routine COPYSMSG_N URGER to new module, COPY 
In CALC_ALQ, j Re TRUNCATE was specified without /ALLOCATION, calculate allocation 
value based on actual EOF of input file. 
Add a globat “variople COPYSB_INCOMPAT. If this variable is set, don't output 
 aegg te atte ibutes message because it has already been output once 
S outpu 2 
In RMS_SETUP, when setting the MBC and MBF fields for a record mode c 
— the MBC field to the size of the input oar one the ise 73° less than or 
ual to 127 blocks. Otherwise, MBC goes meget’ 
In RMS se UP, a record mode “OResu. er wim or tape ods *RABSW _USZ from XABSW_LRL if 
non-zero; otherwise, FABS 
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q } DETAILED FUNCTIONAL DESCRIPTION: 

7 i This utility program creates a gopy of one or more user-specified 
74 files. These files iv be expt citly named or can be referred to 
75 through use of RMS wildcard file naming. Two or more files may 


optionally be concatenated to create a single output file. 


ALL file 1/0 is done using standard RMS facilities. Therefore, 

the input and output files can exist on any device suppor ted by RMS, 
including devices at remote network nodes. If possible, file copying 
is done ¥eing block 1/0. Record 1/0 is used only when an input or 
output file is record oriented (e.g.. terminal, unit record) or when 
a concatenated file is being copied. 


~ 
co 


This utility is intended to interface firectty with a Command Language 
Interpreter (CLI) and cannot be directly invoked from Command Language 
level or from an executing program. Numerous command options 

(i.e., qualifiers) are supported to allow the Command Language user 

to (is optionally speci ty the location and attributes of the input 

and output files, and (2) control the reporting of each file copy. 
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Mrrororropnferr 


If more than one copy operation is specified in a single COPY request, 
each file copy is performed independent of the others. Therefore, 

the failure of one file copy operation (e.g., 1/0 error, input 

file not found) does not affect the remaining copy requests. The 
single exception to this rule is that unprocessed concatenated input 
files are bypassed in the event of a file copy failure. 


NOTE: This module contains some temporary code that (1) circumvents 
a system problem or (2) cannot be implemented until an expected 
system function is available. Jn some cases, codes have been added; 
in other cases, code has been ‘commented out’. In either case, eac 
statement affected includes a comment of the form "'!#n'', where ‘'n'’ is 
a number from the following table: 


#1 = symbol not surrentty defined in STARLET.L32 
#2 - 1/0 buffers cannot be locked in working set - known restriction 
#5 - MODIFY does not accept FHC XAB - future feature 
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COPYMAIN 
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s 
COPY.SRCJCOPYMAIN.B32; 


Sees if input file matches command Line criteria 


Bypass concatenated input files after an error 
Parse an input file-specification 

e output file allocation 
Report names of input and output fil 


le 


Informational message routine 


output file 
le 


quantity 
es 


Definition of macros to SIGNAL a message 


Compare input and output FHC XAB field 


; 1 0310 1! 

: 0 } i : TABLE OF CONTENTS: 

: 315 i ® 

819 0313 1 FORW AO DYSCOPTN | Hain COPY control routi 
3 . ' n 

: 318 16 1 COPYSCHECK FILE FOR MATCH, i Se Sut file patche 
3 19 8 1 1 CREATE_DIR, ' Create Grreg tery file | 

; 0 18 1 RMS_SETUP, ! RAB/buffer initialization 
; 1 0319 1 copy acy } Copies an input file to the 
; ¢ 0 9 1 LOS INE LE : NOVALUE, } Closes the current input fi 
; t 8 1 } epee coneny : NOVALUE, } Closes the current output fi 
> 325 03 $j COPYSFIND_INPUT_FILE, i 

; 326 0324 1 COPYSCALC AL ' Calculate t 

: si 0325 1 REPORT_NAMES : NOVALUE ! 

: : 8358 : oaove gn*eare — é, Report name of file bypassed 
; 0 0328 1 COPYSINOPN_ERR : NOVALUE, i Input open error routine 

; 1 0329 1 IN_READ_ERROR : NOVALU ! Input read error routine 

: 33 0330 1 IN-CLOSE_ERROR : NOVALUE i Input close error routine 
; 4 03 1 3 COPYSOUTOPN_ERR : NO ALUE, i Output open error routine 
3; «334 0 3 1 OUT WRITE_ERROR : NOVALUE, ! Output write error routine 
: 335 0333 «(1 COPYSOCLOSE ERR : NOVALUE, ' Output close error routine 
; 33 Osee : COPYSMSG_NUMBER; ! Compute message number 

; §338 i INCLUDE FILES: 

3 0338 1! 

; 0339 1 

$ 0340 1 LIBRARY ‘'SYSSLIBRARY:STARLET.L32'; ! VAX/VMS common definitions 
: 0341 1 REQUIRE ‘SRC$:COPYMSG.REQ'; ! 

$638 1 

; 0434 MACROS: 

; 6658 he 

5 aes? 1 MACRO 

; M0428 1 IN_NEQ OUTC) = 

: eh 34 : INF ILE_XABFHCCZREMAINING) NEQ .OUTFILE_XABFHCCZREMAINING) 2%, 

3 0451 NAMSB_DVILNG = SDEFINE_BYTECNAMST_DVI) %, 

; o38 1 SDEFINEBYTEC D, 8, S, X) =D, B, 8, OX, 

: 435 1 

3 4 $ t ' Check to see if the oe mot or local qualifier flag is set without the 

: ‘3 : } local negation flag being set. 

: m 04 5 1 qualifier_active( global qual, local qual, locally_negated ) = 

: M0440 1 CIF (global qual ANB NOT .localTy_negated) OR™.local_qual 

: M0441 1 THEN true 

: 4 : ELSE false )% 

; 1 

3 1 

3 1 


? 
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; EQUATED SYMBOLS: . | 
, 


LITERAL 
CLI_STATUS_LEN = 28, ! Length of COPYSCLI_STATUS block 
SEMTSTATUS-LEN = 4 i Length of COPYSSEMSTATUS block 

! "RMESK_OVERLAY = 0; 1#1 eeeee KLUDGE eeeee 


| 
| 
: | 
Global variables 
° | 
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; 1 

; 1 

3 1 

; 1 

; 1 

; 1 

; 1 

3 1 

; 1 

3 1 

; 1 

: 

; 1 GLOBAL 

: } OUTFILE_COUNT : INITIAL (0), ! Number of output files created 

3 63 1 — BLOCK_COUNT, ! Number of input blocks copied (current file) 

; rer ; RECORD_COUNT, ! Number of input records copied (current file) 

; e9 1 MOST_SEVERE_ERR : BLOCK(4,BYTE) ! Most severe error encountered 

; ree ' INITIAL( SSS_NORMAL ), : 

; <0 ; IO_BUFFER_BASE : INITIAL(O), ! Address of 1/0 buffer pool 

; bc ' RMS_MBC : INITIAL(32), ! Size of the RMS buffers 

; o474 BLOCK_SIZE, ! Input file block size | 
; B67e : COPYSCLI_STATUS : SOM DEKE CLE STATUS LEM ) ! Results of the command Line parse 
; bes { COPYSSEM_STATUS : SBBLOCKE SEM_STATUS_LEN ] ! Status of the input and output files | 
; ot tt : COPYSB_INCOMPAT : BYTE INITIAL (O) ! Flag which is set if files have incoompatible attr 
; ge ; 

: t YET ANOTHER REQUIRE FILE 

; bcas | | 

; 36 1 REQUIRE 

; 487 1 *SRC$:COPY.REQ’; ! Field definitions for COPYSCLI_STATUS and COPYSSEM 


voe-000" 13-$e0-1 984 33:23:68 — “S3StbnGasbStébey‘shciumsmac.rea;1 2% a] 
| | 


; SPRINT: File: VMSMAC.832, Version V04-000, Edit 1, WwC, 09-JAN-1978 


| 
| 
| 
| 
| 
| 
| 
| 


; 411 

3; «41 1 ! EXTERNAL REFERENCES: 

3; «(41 +} 

3 416 1 EXTERNAL 

: 4615 1 

3 $ig 1 } 

: tle i 

: 4619 1 ual_context, 

: 420 1 curr urr_atlocati 

; 421 1 curr_protection_or, 

3; 4 ¢ 1 curr_protection_and, 

: O54 i 

; 425 1 RMS definitions 
426 1 

3 427 1 intile. fab 

; 428 1 infile-rab 

; 429 1 infile_name 

3; 4 1 infile_xname 

3; 431 1 infile_nam_blk 

; 4 ¢ 1 infile_xabfhe 

3; 4 1 infile_xaball 

; 4 1 infile_cli_desc 

; 435 1 in_name_desc 

3; 4 1 out file- fab 

; 4 1 outfile_rab 

3; 4 1 out file_name 

3; 439 970 1 out file_xname 

; 440 971 1 out file _narm_blt 

3: 441 9444 1 outfile_xabrdt 

3 «44 975 1 out file_xabpro 

3; «(464 974 1 out tite. xabdat 

3 4446 975 1 ut file-xaball 

3 6445 76 «(1 outtilen xabfhc 

: 446 77 «1 out_name_desc 

3 4467 0978 #1 

3 448 979 1 eaten, LITERAL 

3: 449 980 1 LIBS_FILFAIMAT, 

; 450 1 = LIB$_QUIPRO 

: 482 a 

3 res 1 EXTERNAL ROUTINE 

3 6454 985 1 COPYSGET_INFILE, 

3; 455 1 COPYSGET_OUTFIL, 

3 $26 1 COPYSOPN_INFILE, 

3; «645 1 COPYSOPN_OUTFIL, 

3 $28 89 #1 CLISGET QALUE : 

3; 45 1 LIBSFIND FILE : 

; 460 991 1 LIBSGET JM : AD 

3; 461 992 1 LIBSQUAC_FILE_MA 

3 rr | 993 1 LIBSCHECR_DIR™: 

3; 46 994 1 LIBSCREATE_DIR : 


on_value, 


: VECTOR; 


j 7 
15-Sep-1 
14-Sep-1 


i Command Line qualifier values 


se 8 8 &© & tetine © 
es. 


nan 


GENER 

NERAL) 
G_MODE ( 
MODE TGENERA 
MODE (GENE 


GENERAL), 
RAL) 


GENERAL), 
PRALS: 


Se faitesis 


AX-11 Bliss 


-32 V 
COPY. she ito 


PYNAIN 


4.0-74 
N.B32; 


Common qualifier data area 

The allocation for the output f 
Protection mask for /PROTECTION 
Protection mask for /PROTECTION 


Input file FAB block 

Input sire RAB block 

Input file name after SOPEN 

Input file name oiere SOPEN 

Primary input lock 

File Reeder chores ter 1ettee XAB block 
File allocation XAB bloc 

Input file name on command Line 

Input file name descriptor 


Output file oc 

Output file RAB block 

Output file name after SOPEN 

Output file name before SOPEN 

Output file NAM block 

Output file cevibion date/time pe block 
Output file protection a bloc 

Output file date XAB bloc 

Output file allocation at block 

Output file file header characteristics XAB block 
Output file name descriptor 


File failed to match command Line criteria 
User requested that processing cease 


Gets the name of the input file 

Gets the name of the output file 

Opens the input file 

Opens an output vue 

Get a value from command Line 

Find. a file La My fits the given” filespec 
Virtual memory allocation 

Match a given file to the command Line criteria 
Determine if file is a directory 

Create a directory file 
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71 
-$ep-1984 AX-11 Bliss-32 V4.0-74 P 11) 
13-Sep-1984 $3:32:8 Leber shedeopraalnsosa, a 

} ROUTINE COPYSCOPY = ! Primary COPY control routine | 
1 fee | 
7 FUNCTIONAL DESCRIPTION: | 
1 This routine is the primary control routine for the COPY utility. | 
1/ It determines the basic logical flow and calls support routines 
; which perform each logical function. 
} FORMAL PARAMETERS: 
! AP.rlu.va = Argument List passed from the Command Language Interpreter 
i IMPLICIT INPUTS: | 
None 
: ! IMPLICIT OUTPUTS: | 
; None 
: COMPLETION CODES: | 
} Most severe error encountered during processing or SS$_NORMAL | 
; SIDE EFFECTS: 
1 None | 
4 i 
1 ic 
| 

BEGIN 

eee! = 

! Declare the name of the argument pointer. 
NO ARGUMENT LIST = AP : REF BLOCKC,BYTE); ! Declare the form of the argument List. 
a 
! Temporary variables for character searching 
address, 

STATUS: ! General routine return code 
| 
| 

j Sos the output file-specification and all qualifiers from the CLI. | 
| 

IF NOT COPYSGET_OUTFIL ( ! Get _uhe sutput file spec from the CLI. 
OUTFILE_FAB, i Speci ty the out ut FAB block address, | 

OUTFILE_NAM BLK, i t utput NAM k address, 

OUTF ILE-XABFHC) ! and the output RABENC block address. | 

| 

| 

| 

| 


=z 
> 


ali ie 


p-1 COPY.SRCICOPYMAIN.B32; 
; § 1 ; THEN 
; ? } ? RETURN .MOST_SEVERE_ERR; : On error, return to CLI. 
: 525 1055 2! 
3 § 1 $ ! The remainder of this routine is executed for each input 
: j ; 4 : file-specification supplied by the user. Get the first input file. 
3 1 
; ; : : cn” (status = CLISGET_VALUE( SDESCRIPTOR('INFILE'), infile_cli_desc)) 
; : 5 RETURN .status; 
; 1 WHILE 1 DO ! Beginning of repeat loo 
: 835 1065 BEGIN EO : P 
; 1 ' 
: 1 ! Get the next input {{Lecepes 1 i *cat ton from the CLI. This routine call is a 
; 539 34 ! NOP if a wildcard file-specification is currently being processed; 
; 540 18 0 ! that is, a wildcard specification is repeatedly used until no furthur 
; 541 1071 ! match is found. 
ie EF 
; 544 ioe STATUS = COPYSGET_INFILE ( ! Get an input file-specification. 
3; 545 1075 INFILE_FAB, ! Specify the address of the input FAB block, 
3 74] 1976 INFILE_NAM_BLK, : the address of the input NAM block, 
; roth 4 INF ILE-XABALL) ; ! and the address of the input XABALL block. 
; 26) 1078 if -STATUS EQL NO_MORE_FILES : If there are no more input file-specs, 
: 22) st EXITLOOP; i exit the input file-spec processing loop. 
; 558 1088 IF .STATUS EQL OK } If everything is OK so far, 
; 555 1085 4 BEGIN i begin normal input file processing. 
1 E 
; 558 H+ +4 4 | Open the current input file. 
2 ee ak 
; 363 1092 ? STATUS = COPYSOPN_INFILE (CINFILE_FAB); ! Open the current input file. 
: 56 1093 4! 
; se8 1994 4 ! If the input file is a directory file, then create the directory file 
3; 565 1992 4 ! on the output side if the file does not already exist. If the output 
3 $8 1 a8 4 ! directory already exists, then do nothing. 
: 3 1998 2° 
; 569 1099 4 IF .status EQL ok ' If input opened ok, 
; 570 1100 4 AND LibScheck_dir (infile_ fab) ! and file is a directory, 
3 4 1191 ; ecaal NOT .outfTle_fab CSFAB_DEV(sdi)] ! and not magtape output, 
; 4g 1108 4 IF NOT .outfile_fabC$FAB_DEV(net)] ’ 
; 574 11 & AND NOT .outfile_fab CSFAB_DEV(rec)] ! and not record device, 
; 575 1105 4 THEN 
; 8 11 5 BEGIN 
: 57 13 3 IF (.outfile_nam_blkCnam$v_exp_name] AND 
; 578 1108 (NOT out file_nam_BlkCiiam$v_wild_name])) OR 
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(.outfile_nam_bLkC 
. e trite 


(NOT .ou 
oust he.ne8 


be F2:12248 


AX-11 Bliss- 
COPY.SRCICOP 


nam$v_exp_type] AND 
nam_bTk(nam$v_wild_typeJ)) OR 
LkEnam$v_exp_v 


; 
T VoutT te_nam. bUkCham$vwild_ver)) 


THEN 
BEGIN 


report_bypass(msg$_illdircopy); 
See tattle: ~ ~ 


close_7 


LSE 
BEGIN 


' Close input file 


status = create dir het tS ie oytttte b) 


t 
IF .status EQL ss$_created 


THEN 
BEGIN 
report_names() 


fab); 
le actually created, 


! Report file copied 


outfile_count = -outfile_count + 1; 


END; 
IF NOT .status 
THEN 


report pypess (negs_notcepted); 
e(); 


close_infil 
END 

END 

BEGIN 


report_bypass 
close, tn fle: 
END 


ELSE 


(msg$_dirnotcre); : 


! If successful, 


! Else report failure 
! Close input file 


lse report failure 
lose input file 


Create (or simply open) the autput file (if it is not already epee, Gus to 


input file concatenation) and t 
output file. 


IF .STATUS EQL OK 
THEN 


BEGIN 
IF (STATUS = COPYSOPN_OUTFIL ( 


BEGIN 
IF (STATUS = RMS_SETUP()) 
THEN 


BEGIN 
IF (STATUS = COPY_FILE()) 
THEN 


BEG! 


en copy the entire input file to the 


If the input file was successfully opened, 


create or open the output file unless it is 
OUTFILE_FAB, 
OUTFILE_RAB, 
INFILE FAB, 
OUTF ILE_COUNT)) 
! already open due to input concatenation. 


! Setup the input and output RABs and buffers. 


! Copy the entire input file to the output file. 


N 
IF .outfile_fab CSFAB_DEV(rec)] 


coor N 15-seo-1984 $5:32: 46 AX-11 Oh iegnse V4.0-74 Page ff} 


3 


BEGIN 


i If this is an APPEND operation, then stop processing. 
ee is no need to continue appending to a non-existant 
. e. 


14-Sep- COPY.SR YMAIN.832; 
6 AND NOT .outfile_fab CSFAB_DEV(net)] 
6 6 THEN 
6 68 1 BEGIN 
639 8 1 size = .out_name_desc(0); 
640 1 address = .out_name_descl1); 
641 71 1 tr = CHSFIND_CH(.sTze,.address,':"); 
ote f : i ad NEQ 0 ! If there is anything past the device, remove it 
ote f 1 out _name_desc(0J = .ptr - .address + 1; 
ons REPORT_NAMES() ! Report the results if the copy was successful. 
648 7 LSE ! Otherwise, report a partial copy. 
ct REPORT_BYPASS( MSGS_NOTCMPLT ); 
651 8 LSE 
$26 ; REPORT_BYPASS( MSGS$_NOTCOPIED ); 
o28 : ELSE ! If the output file couldn't be opened, 
656 8 
657 8 
658 8 
659 8 
660 g 
66 
66 
66 


eee 


Bypass any concatenated input files if an error occurred during the 
ile copy. 
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I 
THEN 
] 
; 


Se Se Se Be Ge Se Se Ge Se Ge Se Se ee Ge Be Ge Be Se Ge Se Ge Ge Be Ge Se Ge Se Ge Se Ge Se Se Ge Se Ge SES Se SH Ss SHS Ge Se SF Ge SH S5 SH Sse Se Se Se Se Seeee 
= 
ea ee ed ot oe = 3 = = = = oS 2 = — wd — I a Ld — 2 SS 2 SS 


1 9 iF .append command 
2 9 THEN EX1TLOOP: 

oee SELECTONE .status OF 

666 9 C LIBS_FILFAIMAT J) : ! Quietly skip this file 

667 9 status = ok; 

ree 4 > C L388 _oy iPro J, : ! User wishes to stop at this point 

670 0 C OTHERWISE “i ! indicate the input file wasn't copied. 

671 0 REPORT_BYPASS( MSG$_NOTCOPIED); 

67 0 TES; 

67 0 END; ! else stmt 

674 0 END; 

675 0 

676 CLOSE_INFILE(); ! Close the input file. 

678 0 END; ! End of ELSE clause : 

6” END; ! End of processing a single input file specificatio 

681 1 | 

68 1 ! If the user wishes to quit processing, then exit with a successful | 

68 : status. | 

o8s F .status EQL LIB$_QUIPRO | 

4 : status = ok; | 
1 
: | 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
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1 
1 
1 
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1 
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1 
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1 
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1 
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1 
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1 
1 
1 
1 
1 
1 
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ep-1984 23:39: AX-11 Bliss-32 V4.0-74 
$o-19b4 13:40:48 COPY. SRCJCOPYMAIN.B32; 


IF BYPASS_CONCAT() i bypass any concatenated input files. 
EXITLOOP; 


Close the output file unless another input file is to be 
concatenated to the output file just written. 


and the command was not APPEND, 
BEGIN 


Set up protection if user specified explicitly. 
Fe yt Stren serous protect_qual, loc_protect_qual, neg_protect_qual ) 


IN 
outfile_xabpro Cxab$w_pro] = .outfile_xabprol xab$w_pro] AND 
-curr_protection_and; 
outfile_xabpro Cxab$w_pro] = .outTile_xabprof xab$w_pro] OR 
_ -curr_protection_or; 


ELSE 

outfile_xabrdt Cxab$l_nxt] = 0; 
1 
Close the current output file. 


COPYSCLOSE_OUTF (); ! close the current output file, if any. 
' 


i Reinitialize the XAB chain, since it may have been mucked with 
by COPYSOPN_OUTFIL among other routines. 


outfile_xaball Cxab$l_nxt] = outfile_xabdat; 
outfile_xabdat Cxab$l_nxt] = outfile_xabrdt; 
xab$l_nxt] = outfile_xabpro; 


outfile_xabrdt 
END; 


If the input file was not successfully copied, 


If multiple output files are being created, 


Page 15. 
° «53 


| 


| 


! End of ‘WHILE 1 DO" input file-spec processing loo. 


! 
Perform any necessary cleanup before exiting. 


i Set up protection if user specified explicitly. 


ft gual tt tor set tues protect_qual, loc_protect_qual, neg_protect_qual ) 
BEGIN 


COPYMAIN 18.58 -1984 23:39: AX-11 Bliss-32 V4.0-742 

v04-00 12-Sep-1984 $333 : 2:48 COPY. sre Cjco SPYMAIN N.B32;1 

; re 1280 outfile_xabpro Cxab$w_pro] = .outfile akabprot xabSw pro] AND 

3 fol 1281 ecurr protect’ on_an 

. 2 : 1 j outfile_xabpro Cxab$w.pro] = loutfTle.xabprol-xab$w_pro] OR 

ae 1 -curr_protection_or; 

> 754 1284 END 

. 739 1285 

: P38 : 6 outfile_xabrdt Cxab$l_nxt] = 0; 

; o38 } He COPYSCLOSE_OUTF(); ! close the current output file, if any. 
3 : ey COPYSLOG_MSG( MSGS_NEWFILES ); ! Report the number of files created. 

; 1 Y 

3 129 ! Return to the caller. 

: 135 5 

; 1596 RETURN .MOST_SEVERE_ERR; ! Use the most severe error encountered 
3 a4 § ! as the completion code from this routine. 
; 1299 1 END; 


TITLE COPYMAIN 
-IDENT \v04-000\ 


»PSECT SPLITS,NOWRT ,NOEXE,2 
45 4C 49 46 4E 49 00000 P.AAB: .ASCII \INFILE\ 


-BLKB 2 
00000006 00008 P.AAA: .LONG 6 
00000000° 0000C -ADDRESS P.AAB 


-PSECT $GLOBAL$,NOEXE,2 
00000000 00000 oUTFILE rou 
00004 BLOCK_COUNT:: 
“BLKB 
00008 RECORD_COUNT:: 
00000001 0000¢ NOST_SEVERE ERR: 
00000000 00010 10_BUFFER_BASE:: 
00000020 00014 RMS_MBC:: 
-LONG 32 
00018 BLOCK_SIZE:: 
-BLKB 4 
00000000 0001¢ COPYSCLI_STATUS: 


ome FO 


90020 *BLKB 
00000000 00038 COPYSSEM_STATUS: : 


00 0003C COPY$B_INCOMPAT: : 
BYTE 0 


~-EXTRN CLIS_PRESENT, CLIS_NEGATED 


8 
COPYMAIN 1-58 -1984 23:39: AX-11 Bliss-32 V4.0-74 
v06~000 1228601984 #3342598 COPY. SRCJCOPYMAIN.B32; 
.EXTRN CLIS$_LOCPRES, CLIS$_LOCNEG 
SEXTRN COMMON GUAL_ CONTEXT 
»EXTRN CURR_ACLOCATION_VALUE 
“EXTRN CURR~PROTECTION-OR 
-EXTRN CURR~PROTECTION-AND 
-EXTRN INFICE_FAB, INFILE_RAB 
SEXTRN INFILE-NAME, INFILE_XNAME 
SEXTRN INFILE-NAM BLK, INFILE_XABFHC 
-EXTRN INFILE-XABALL, INFILE_CLI_DESC 
«EXTRN IN_NAME_DESC, OUTFILE FAB 
sEXTRN OUTFILE-RAB, OUTFILE RAME 
SEXTRN OUTFILE-XNAME, OUTFICE NAM BLK 
SEXTRN OUTFILE-XABRDT, OUTFILE_XABPRO 
-EXTRN OUTFILE-XABDAT, OUTFILE-XABALL 
-EXTRN OUTFILE-XABFHC, OUT_NAME_DESC 
-EXTRN LIBS_FICFAIMAT, LIB$_QUIP 
“EXTRN COPYSGET_INFILE 
-EXTRN COPYSGET-OUTFI 
SEXTRN COPYSOPN~INF IL 
“EXTRN COPYSOPN~OUTF IL 
-EXTRN CLISGET_VALUE, LIBSFIND FILE 
-EXTRN LIBSGET-VM, LIBSQUAL_FICE_MATCH 
-EXTRN LIBSCHETK_DIR, LIBSCREATE_DIR 


-PSECT SCODES,NOWRT,2 
OFFC 00000 COPYSCOPY: 


WORD e R2,R3,R4,R5,R6,R7,R8,RI,R10,R11 
5B 00006 cF 9€ 00002 MOVAB OUTFILE XABPRO+8, R11 
SA 00006 CF 9E 00007 MOVAB INFILE FAB, R10 
59 0000G CF 9E 0000C MOVAB OUTFILE_NAM_BLK+52, R9 
58 00006 CF 9E 90011 MOVAB OUTFILE~FABT64, RB 
57 0000' CF 9E 00016 OVAB COPYS$CLT_STATUS+2, R7 
00006 CF 9F 0001B PUSHAB OUTFILE_RABFHC 
CC Ad OF OOOTF PUSHAB OUTFILE-NAM_BLK 
CO AS OF 00022 PUSHAB OUTFILE-FAB 
00006 CF 03 FB 000 CALLS #3, COPYSGET_OUTFIL 
ot SERS 
00006 CF 9F Miki 1$: PUSHAB INFILE_CLI_DESC 
0000° CF 9F 0054 PUSHAB P.AAA 
000000006 00 08 FB 0038 CALLS ", CLISGET_VALUE 
i a a 
i a a, 
00006 CF 9F Boods 2$: PUSHAB INFILE_XABALL 
00006 ct 9F 00040 PUSHAB INF ILE~NAM_BLK 
A DD 0051 PUSHL R10 
00006 CF 03 FB 0 33 CALLS #3, COPYSGET_INFILE 
32 D 005 MOVL RO. STATU 
0 3¢ D1 00058 CMPL TATUS, # 
0 1 005 BNEG ; 
016D 00 BRW 4 
01 3 p4 00 3$ CPL STATUS, # 
0108 3] posh BRW 25$ 
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; Routine Size: 518 bytes, Routine Base: $CODE$ + 0000 


8 
COPYMAIN ibese -1984 23:39: AX-11 Bliss-32 V4.0-74 p 19 | 
V "000 1228 08=198e 93:72:98 YOY SRCICOPYAAIN 93504 — (5) | 
0006 CF 01 Al 9E 001 MOVAB 1(R1), OUT_NAME_DESC ; | 
ita CF : re 3 148 CALLS 49 REPORT-NAMES : 1176 | 
7E 11C0—s« BF i 15t 188: MOV ZUL #4544, =(SP) + 1179) 
03 FE wohl 59 146 188: BLBC PYSCLI_STATUS, 19$ : 1191 
000000006 8F 53 D} 0140 19$: CPL TATUS, #LIBS_FILFAIMAT : 196) 
52 0 06 0156 - MOVL #1, STATUS : 1197 | 
000000006 8F 32 D4 0158 30 cHPL TATUS, #LIB$_QUIPRO ; 1198) 
7E 1188 BF 30 00164 a8: MOVZWL #4536, -(SP) + 1201 
Sov EF 1 FS Oates gis: GALLS 81. REPORT Bypass £120 
000000006 &F 53 D1 air8 5$ CHL status, #C1B$_QUIPRO : 1345 
52 or 5 017¢ MOVL #1, STATUS + 1217 
08 2 €8 OO17F 26$:  BLBS STATUS, 27$ + 1223 
0000v cf 00 Fe 00182 CALLS #0, YBASS_CONCAT + 1225 
F 18 A? €9 0018A 27$:  BLBC  COPYSSEM_STATUS+1, 32$ + 1233 
B FE AZ EB 0018 BLBS § COPYSCLI“STATUS, $2$ : 
05 01 A? 05 €1 00196 BBC #5, COPYSCLI_STATUS+3, 28$ + 1240 
01 a? 93 00197 ‘sie COPYSCLI_STATUS+3 ; 
OF 01 «A? 8 E1 0019C 28%: BBC #6, COPYSCLI_STATUS+3, 30$ : 
50 00006 CF D2 001A1 29$: | MCOML CURR PROTECTION _AND, RO + 1244 
68 50 AA 0016 Bice RO, OUTFILE XABPRO+ ; 
6B 00006 cf AB OO1A9 BIsw CURR. PROTECTION. OR, OUTFILE_XABPRO+8 : 1246 
00006 CF D4 00180 30§: CLRL OUTFILE_XABRDT+4 : 1949 
0000v CF 00 FB 001B4 31$: CALLS #0, COPYSCLOSE_oUTF > 1055 
00006 CF 00006 CF 9E 00189 MOVAB OUTFILE_XABDAT. OUTFILE_XABALL+4 : 1 6@ 
00006 CF 00006 CF 9€ 001C0 MOVAB OUTFILE~XABRDT. OUTFILE-XABDAT+4 + 126 
0000G CF FB eb 9F O01¢7 me MOVAB QUTFILELXABPRO, OUTF ILE~XABRDT+4 1264 
05 01 «A? 05 Fi 00100 3 $: BBC #5, COPYSCLI_STATUS+3, 34$ : 1277 
TORE TR GUIRE gk faerie. saves : 
OF 01 «A? 06 €1 O01DA 348: BBC #6, COPYSCLI_STATUS+3, 26$ : 
50 00006 CF D2 O01DF 35$: | MCOML CURR PROTECTION AND, RO > 1281 
68 50 AA OO1E4 Bice RO, OUTFILE_XABPRO+ : 
6B 00006 cf As 167 Bisw URR_PROTECTION_OR, OUTFILE_XABPRO+8 ; 128 
00006 CF 04 OOIE 368: CLRL OUTFILE XABRDT+4 > 1286 
0000v cr iad Yi Fe O1F $: CALLS ¥ OPYSCLOSE_OUTF 88 
0000v cf 1 FB bite CALLS #1, COPY$LOG_MSG : 
0 EE AT p 9201 38$:  MOVL #MOST_SEVERE_ERR, RO : 1296 | 
4 00205 RET 3 1299 | 
| 


8 
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| 
; 771 1300 1 GLOBAL ROUTINE COPYSCHECK_FILE_FOR_MATCH = | 
3 ag 1301 1 : ag 
; @ 1302 1 !+¢ 
: 774 1305 1! 
; 278 1304 1 | FUNCTIONAL DESCRIPTION: | 
3 178 1306 1! This routine sets up the parameters for and calls LIBSQUAL_FILE_MATCH to see if the input 
3 rr : 4 : file matches the criteria given on the command Line. | 
; 780 1309 1 ! FORMAL PARAMETERS: 
; 78) 1310 1! 
: ree 133) 1! None 
; 1 \¢ 1! 
> 784 1313 1 ! IMPLICIT INPUTS: | 
; 785 1314 1! 
3; 786 1315 17! IN_NAME _DESC : Input file name descriptor 
3; 787 1 16 1! OUT_NAME_ DESC : Output file name descriptor 
; 788 1317 1! OUTFILE_ OPEN : Output file is currently open 
3 ad ! 18 : } COMMON_GUAL_CONTEXT : Common qualifier data area 
: 791 1320 1 ! IMPLICIT OUTPUTS: 
; 79 1 $] 1! 
3; 3 ; 1: None | 
3: 794 1323 1! 
: 795 1324 1 ! ROUTINE VALUE: 
; 796 1325 1! | 
: 797 1326 1! Whatever LIBSQUAL_FILE_MATCH returns. 
; 798 1327 1! 
: 799 1328 1 ! COMPLETION CODES: 
; 800 1392 1! 
; 801 3 o 7? None ; 
; 802 1331 1! 
; 803 1332 1 ! SIDE EFFECTS: 
; 804 133 1! 
; 805 1334 1! None 
; 806 1335 1! 
3; 807 1338 1 !-- 
; 808 1337 1 
3 oo 1338 BEGIN 
3; «6811 1340 LOCAL 
$ aig 1341 out_desc ¢ ! Temporary desc. for output file name 
3; 8 1 $s VECTORE 2 J, 
3 «814 134 prompt_string_desc, ' Desc. for /CONFIRM proact string address 
> 815 1344 prompt_args : ! Argument List for /CONFIRM prompt 
: sig 1345 VECTORE 2 J 
3; «81 134 3 
3 318 134 
B18 
; B54 1350 ! Pick to appropriate propmt string, depending on whether the input file is 
; 8 ¢ : 2) } being append to an output file or not. 
3 B26 1 33 if . ppend_command R .outfile open 
: 5 1354 THEN prompt_string_desc = S$DESCRIPTOR(*Append !AS to !AS? oi 
; 36 23 ELSE prompt~string_desc = $DESCRIPTOR('Copy 'AS to !AS? (NJ'); 


8 
COPYMAIN 18-56 -1984 23:39: AX-11 Bliss-32 V4.0-74 P 1 
F04~000 12288-1382 93:92:98 COPY. SRCICOPYMAIN.B32; ste (By 
$ 8 1 af 
: 4 : 28 } File in the file name descriptors. 
; 1 1360 Drompt_args = in_name_desc; 
; H ¢ ] 9] ereaet ar ee ° : = out_desc; 
; 1 re IF .outfile_mam_blkC NAMSB_RSL J NEQ 0 
F 5 1564 THEN 
3 1365 BEGIN 
3s 83 1 06 out_desc{ 0 } = .outfile_nam_blkC NAMSB_RSL J; 
: 3 ! 6 out_desc{ 1 J = outfile_name; 
; Bey : & om tfil blkC NAMSB_ESL J] NEQ 0 
3 .ou e_nam 
; BAe 1371 THEN i : | 
: Sf 1 Le BEGIN 
3 B44 137 out _descf 0 } = .,outfile_nam_blkC NAMSB_ESL J; 
; 845 1374 out_desc(€ 1 J] = outfile_xname; 
Be ie os 
; bcs 138 prompt_argsC 1 ] = out_name_desc; | 
: 851 1380 ! Compare the current input file to the command Line criteria. Return the 
: $26 133) : results of the comparison to the calling routine. 
: 854 1388 RETURN LIBSQUAL FILE_MATCH( common_qual_ context, infile_fab, 0, 
: S22 1388 -prompt_string_desc, prompt_args, 0); | 
: 857 1386 1 END; ! End of routine COPYSCHECK_FILE_FOR_MATCH | 
| 
-PSECT $PLITS,NOWRT ,NOEXE ,2 | 
21 20 6F 74 20 53 41 21 20 64 6E 65 70 4 41 00010 P.AAD: .ASCII \Append !AS to !AS? CNJ\ 3 
5D 4E 5B 20 3F 53 41 eh 3 
0026 -BLKB 
eats 0028 P.AAC: .LONG 2 3 
O220009" 002C ADDRESS P.AAD $ 
53 41 21 20 6F 74 20 53 41 21 ¢0 79 70 20 4 0030 P.AAF eASCII \Copy !AS to !AS? CNIJ\ 3 
D 4E 5B 20 3F OO3F : 
00000014 00044 P.AAE: .LONG 20 3 
00000000" 00048 eADDRESS P.AAF 3 
.PSECT $CODES,NOWRT,2 
000 99 ENTRY COPYSCHECK FILE FOR MATCH, Save nothing ; 1300. 
5E 10 C€ 0 SUBL2 #16, SP 3 
06 0000 CF €8 0000 BLBS COPYSCLI_STATUS, 1$ : 1353) 
07 0000° gf 01 gt OA BBC #1, COPYSSEM STATUS+2, 2% : 
1 0000° CF 3 i 1$: MOVAB P.AAC, PROMPT _STRING_DESC 3 1354 
51 000" CF 9€ 0001 38: MOVAB P.AAE, PROMPT_STRING_DESC ; 
6E 000G CF 9E OOOIC 35$: MOVAB IN_NAME_DESC, PROMPT_ARGS ; 


1 -1984 23:39: AX-11 Bliss-32 v4.0-74 
1 71383 $3:72 98 YeopY SREIEOPTRAYN  O3007 
06 =A AE 9E 1 MOVAB OUT_DESC, PROMPT_ARGS+4 
5 00006 f a 4 noyzBL OUTFILE_NAM_BLK*3, RO 
os AE 5 00 D MOVL RO, OUT_DESC 
AE 00006 cr 9 } HOVAB TFILETNAME, OUT_DESC+4 
50 00006 i 9A 9 4$: MOVZBL peepee RO 
08 AE 6 09 ib MOVL RO, OUT_DESC 
OC AE 00006 ' Hi 9 44 BOVAB TFILEXNAME, OUT_DESC+4 
06 AE 00006 CF 9 af 5$: MOVAB OUT_NAME_DESC, PROMPT_ARGS+4 
E p 6S: CLRL =—_- = ¢ SP) 
04 AE F 4 PUSHAB PROMPT_ARGS 
DD PUSHL PROMPT-STRING_DESC 
E p4 39 CLRL. = (SP) 
00006 CF 9F 00058 PUSHAB INFILE_FAB 
00006 CF 9F 0005F PUSHAB COMMON QUAL_CONTEXT 
000000006 00 é fe 90063 CALLS #6, LIBSQUAC_FILE_MATCH 


; Routine Size: 107 bytes, Routine Base: SCODE$S + 0206 
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Inputs: 


: 59 ROUTINE CREATE_DIR (input_fab, output_fab) = 

: : —_— or 

; This routine is called to create a directory file on 

3 the putayt side if the directory does not already exist. 
; 5 If the directory already exists, do nothing. 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


output_fab = Address of FAB describing the device and directory 
into which the directory file should be created. 


Outputs: 


i 

' 

i 

i 

i 

' 

input fab = Address of FAB describing opened directory file 
: 

i 

i 

: Routine value = status return 


CONAULSWN oO 


BEGIN 


Janeen 


MAP 
input_fab: REF BLOCKC,BYTE), ! Input FAB 


3 output_fab: REF BLOCKC BYTE); ! Output FAB 

884 IND 

885 input_nam = .input_fab Ft anst nam): BLOCKC, BYTE) 

3 output_nam = .output_fab CfabSl_nam]: BLOCKL,BYTED; 

ee LOCAL 

889 ! String temporary pointer 

90 ° ! descr e~ of search string 

9 : VECTOR Cnam$c_maxrss,BYTE), ! file spec buffer 
bufdesc: VECTOR (2), ' descriptor of above buffer 
terminator: BYTE, ! Directory spec. terminator 

o3e status; ! status variable 

45] record_count = 0; ! Initialize the record count 

144 block count = 0; ! Initialize the block count 


a: 
; 89 
3 9 


status = SRMS_PARSE (FAB = .output_fab); ! Get full name of directory file 


-output_nam (nam$b_esl); ! Get output expanded name 
-output_nam [nam$\_esaJ; 


-Status 


put messagex(.status); 
oo -Status; 
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910 

911 *" = CHSFIND_CH(.size, .addr, ']'); ! Find end of directory spec 
aig F .ptr EQL 0 ! If not found, 

91 T 

914 BEGIN 

915 ptr = CHSFIND_CH(.size, .addr, ">"); ! Alternate syntax 


cOPYRAIN 1E-seprt9te 95:39:26 yanett aLisse32 v4.0.7 Page (2h 


cuenOves. size, od r, buffer+. bufdescl03); } Append subdirectory wane te buffer 


pei tor C butd fdescl0)+. $iz0] = ,termi ngrer ' Tack terminator on end o 


BISSSSRARAELEE 


4) 
| 
| 
7; 91 144 F .ptr EQ: 0 ! If sti f , 
i 3 ee teu bal Pes dats ear tad | 
3 message(rms$_esa); : t 
3 Fe ew:?” i 9 ® return inva expanded string | 
; 
3 144 size tr +1 addr; ! Figure Length of device and dir. 
3; 9 ¢ 1450 CH MOVEt size. addr, buffer); : Coby Sevteg ond directory into buffer 
3 9 1451 terminator = a: 4 f.size-11; ! Remember oer coter on, dir. spec. 
: 3 : 1? § buffer C.size- ! and overwrite it with °. | 
: 9 1454 2 bufdesc (0) = .size: ! Setup buffer descriptor 
; t 1 5 bufdesc ES }: = buffer; | 
: 929 1 $ size = .input_nam (nam$b_rsl]; ! Get input result name 
: 3 : ; 2 addr = .input_nam (nam$\"“rsa 
; 9 § 1460 " = CHSFIND_CH(.size, eal "3° Ds ! Find start of file name on input side 
: : 2 F .ptr EQL 0 ! If not found, 
: 935 1 8g BEGIN 
:; 9 1464 tr = CHSFIND_CH(.size, .addr, '>'); ! pi veenete syntax 
: 3 : 65 a a r EQL 0” ! If still not found 
340 88 enp Pot _message(rms$_esa); ! return invalid expanded string 
; 94 1 size = size. - (.ptr + 1 - .addr); ' Figure descriptor of file name 
3 363 ; addr = .ptr + 1; . ° | 
: 945 1 tr = CHSFIND_CH(.size, .addr, '."); ! Find where file name ends 
: $ ; F .ptr EQL 0” ! If not found, 
; 8 1 RETURN rms$_esa; ' return invalid expanded string 
; ; ; size = .ptr - .addr; ! Figure descriptor of file name only | 
; 1 | 
; 1 
; 1 
; 1 
3 1 
3 1 
3 1 
! | 
; 1 
P) 1 | 
3 1 
Py 1 | 
PY 1 | 
3 1 
3 1 
3 1 
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1 
5 bufdesc -bufdesc(0 .size +1; ! Update string descriptor 
5 name _desc co} = .bufdesc O33 ! Copy length of string 
$ CHSAOVE (7 bufdesc(0J, .bufdescl1}, .out_name_desc(1J); ! and string too 
3 status = LIBSCREATE_DIR (bufdesc); ! Create directory file with defaults 
960 IF NOT .status ! If error detected, 
961 THEN 
oc8 put_messagex(.status); ! then signal status 
aoe RETURN .status; ! return with status 
966 


i 
| 
| 

. 
N 

END; 

j 


-EXTRN SYSSPARSE | 
OFFC 00000 CREATE_DIR: 
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WORD S398 9 £2 R3, Rs, RS,R6,R7,RB,RO,R10,R17 


FB OE C9 3 MOVAB 
4 Ac D VL }NPU Fab a 
aD move GOT. Re FAB, RO 
Ni D 3 vL SBC nO); “he” 
oot Gb os Bing, 
000000006 00 1 Fe 1D CALLS #1, SYSSPARSE 
A p 4 MOVL RO. STATUS 
7 ve A2 9A 7 MOVZBL 11(R2), SIZE 
6 € Ad D MOVL  12(R2). ADDR 
SA F BLBS STATUS. 1$ 
00D é BRW 10s 
ab 57 5D 8F 3A 00035 18 LOCC ©: #93, SIZE, (ADDR) 
é if O3A BNEQ 2$ 
D4 0003¢ CLRL RI 
59 1 00 O03E 2 MOVL 1, PTR 
1 4 004 BNEG 4$ 
66 57 : 3A 0004 LOCC #62, SIZE, (ADDR) 
12 0004 BNEQ © 3$ 
1 D4 00049 CLRL RI 
59 1 00 0048 3$ MOVL 1, PTR 
14 1 O04e BNEG 4$ 
000184FC 8F OD 0005 PUSHL #99580 
0000v CF on FB Subse CALLS #1, COPYSMSG_NUMBER 
000000006 00 gi FB 905p po CALL He LIBSSTOP. 
57 01. Al § 0068 MOV 1(R15, SIZE 
08 AE 66 57 é 906¢ MOVC3 SIZE, (ADDR), BUFFER 
58 07 AE47 0071 MOVE BUFFER-1 IESIZE}, TE TERMINATOR 
07 AEG? Hs 90 00076 MOVB #46, BUFFER-1LS1Z 
6E DO 00078 VL 12€, BUFDESC 
06 =A 0 AE 9E€ 0007 OVAB BUFFER, BUF DESC +4 
5 03 AS 9A 0008 MOVZBL 3(R8), SIZE 
5 4 a8 00 0008 MOVL  4(R8). ADDR 
bb S D 8F 3A 000 LOCC #93, SIZE, (ADDR) 
2 12 000 BNEQ 5$ 
1 D4 0009 CLRL aR 
59 1 09 0094 5$: MOVL 1, PTR 
1 12 00097 BNEQ 7$ 
66 57 $A 0099 LOCC #62, SIZE. (ADDR) 
: 0 9D BNEQ 6$ 
D OF CLRL sR 
59 1 0 Al 68: MOVL 1, PTR 
14 A4 BNEO 
000184FC 8F DD 000A6 PUSHL #99580 
0000v CF } FB OAC CALLS #1, COPYSMSG_NUMBER 
000000006 00 gi Fe B3 CALLS #1, LIBSSTOP 
0 9 3 BA 7$: SUBL3 PTR ADDR R 
FF AQG? 9E MOVAB -1(RO)CSIZE], SIZE 
; 01 Ad 99E 000C MOV 1(R9), ADD 
66 A 000¢ LOCC #46, SIZE, (ADDR) 
2 CB BNEQ 8$ 
D CD CLRL RI 


2 
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a 
COPYMAIN 1b-se -) 239: AX-11 Bliss-32 V4.0-74 
904-000 12-808 - 1986 93:72:98 NPY SALICOPYAAIN 63001 
59 i f CF 8$: MOVL 1, PTR 
8 D BNEG 
50 000184FC «BF p 8 OWL #99580, RO 
7 $e RR Beg mr, 8 
00 BESO 65 5 5 oes moves SIZE, (ADDR) aByFDESCERO] 
5 6 7 ci 0 EA ADDL3 SIZE, BUFDESC, R 
08 AES : 0 OO0E VB. ‘TERMINATOR, BUFFERCROJ 
6 01 AO 9 OOF MOVAB 1(RO), BUFDESC 
00006 CF 6E : F MOVL.  BUFDESC, OUT_NAME_DESC 
00006 oF 04 ge 28 a8 MOvCS BUFDESC, @BUFDESC#4, SOUT_NAME_DESC+4 
000000006 00 1 F $19 CALLS #1, LIBSCREATE_DIR 
A 0 0 910¢ MOVL RO, STATUS 
. 2A H the 10$ at SL stirus, - 
0000v CF 1 —B8 00114 CALLS #1, COPYSMSG_NUMBER 
7E 00 50 1 7A 00119 EMUL #1. RO, #0, =(SP) 
™ ” 5f 5 bt ool8 DIV #8. (SP)+, RO, RO 
12 13 001 BEQL ss 
SA DD 001 8 PUSHL STATUS 
0000v CF gi FB OO12A CALLS #1, COPYSMSG_NUMBER 
0 DD O012F PUSHL 
000000006 00 1 Fe 4 ! CALLS ", LIBSSIGNAL 
5A DD 0013A 11$:  PUSHL STATUS 
0000v CF ot FB 0015¢ CALLS a, COPYSMSG_NUMBER 
000000006 00 or FB 00143 CALLS #1, LIBSSTOP 
50 A 00 0014A 12$:  MOVL STATUS, RO 
04 00140 RET 


; Routine Size: 334 bytes, Routine Base: SCODE$ + 0271 
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5 B68 149? ! ROUTINE RMS_SETUP = ! RMS RAB setup routine 

3 353 1499 1 lee 

3 48 1628 ! FUNCTIONAL DESCRIPTION: 

: 378 1 BY : This routine performs all necessary setup of the input and output file RABs: 

; 975 1 6g 1! * determine if record-mode is required 

3 are 1505 1! * allocate 1/0 buffers 

3 As : be : * connect the RABs to their respective FABs 

; 979 1 4 1 ! FORMAL PARAMETERS: 

; 980 1 1! 

; 981 1508 1! None 

; 98 1509 1! 

; 98 1510 1 ! IMPLICIT INPUTS: 

: 984 1511 1! 

; 985 1216 1! EXTEND _OUTFILE = Indicates output file is being extended 

3; 4986 1513 1! 10_BUFFER_BASE = location of the 1/0 buffer pool 

3: 987 15144 1! INFILE_FAB = Input file FAB 

; 4988 1515 1! OUTFILE FAB = Output file FAB 

; 989 1316 1! INFILE_RABs = Input file XABs 

; 990 1517 1! 

3; 991 1518 1 ! IMPLICIT OUTPUTS: 

; 1819 1! 

; 99 1520 1! INFILE_RAB = Input file RAB completed and connected 

: 994 1521 1! OUTFILE_RAB = Output file RAB completed and connected 

; 995 15 ; 1! 10_BUFFER_BASE = Address of dynamic 1/0 buffer (ist call only) 

3 238 2 7 : BLOCK_I0_SIZE - Length of block 1/0 operations 

3; 998 1525 1 ! COMPLETION CODES: 

3; 999 1826 1! 

3; 1000 1527 1! OK = normal completion 

: 1001 1528 1! ERROR = RAB connect unsuccessful 

; 1ooe 1529 1! 

; 100 1530 1 ! SIDE EFFECTS: 

3: 1004 1531 1! 

3; 1005 15 § 1! None 

3 1006 15 1! 

: 1007 1534 1 !-- 

3; 1008 1535 1 

3; 1009 1336 BEGIN 

3; 1010 153 

: 19t) 1338 LOCAL 

31 \ 1539 IN_DEVICE : BLOCKC1,BYTE) ! Selected input and output 

3 Ig? 1369 OUT_DEVICE : BLOCKL{,BYTEd, ' device characteristics 

5: nt FORE REC MODE. F aeereey cee tcste Le pescoues 

° * Vv 

: iol 1544 10_BUFFER_LENGTH : JOLT Coos io_length*2), ' Size of 1/0 buffer’ poo! 

: & GETSVYI_ITEM_LIST : SITMLST_D =1); ! Item List for ca 
1918 : $ T TE T TMLST_DECCCITEMS=1) ! | list for SGETSYI call 

: 19 ° 134? me 0.1.0% In. pevice ond OUT DEVICE bit definitions: 

Py = V.VU,!I, ° : s evic 

s BS Golete z : tape device 
8 1348 TAPE 1,1 8 z ! devi 

: 1024 128 ! 


~ 


8 
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COPYMAIN 
v04- 14-Sep-1984 COPY.SRCICOPY 


~oOo 


’ 
: 18 5 1 § ! Allocate a maximum size 1/0 buffer pool on the 1st call to this routine. | 
: 1059 a | 
: 19 8 1555 IF .io_buffer_base EQL 0 
3 } 1 8 THEN 
; 1050 4 2 BEGIN 
1083 1389 : | 
: 10 : 1560 i Allocate enough virtual memory for the 1/0 buffer pool. It has to | 
; 10 1561 ! be large enough to hold two of the largest possible RMS transfers. 
; 1035 1266 ! weeeee NOTE seenee If COPY is ever made callable, the allocation of 
3 1938 1384 the 1/0 buffer pool will have to be rewritten to be more efficient. 

: 10 1565 

3 1939 1206 4 4 as (status = LIBSGET_VM (io_buffer_length, io_buffer_base)) 
: 1041 1568 PUT_MESSAGE( MSGS_BADLOGIC, 0, .STATUS, 0, MSGS$_ATPC, 1 ); 

3 9g 1569 END; 

: ibea eee 

: ipen 1376 ; ; Extract some device information from the input and output file FABs. 

5 1047 1574 2° 

3 1048 1575 IN_DEVICE = 0; ! Clear the input and output 

3 + 13/6 T_DEVICE = 0; ! device characteristics. 

: 1051 1578 IN_DEVICECDISK] = ! Turn on the input file disk indicator 

$ 126 1579 - INFILE_FABCSFAB_DEV(FOD)] AND ! if the input device is file-structured 

3 199? 1380 NOT .INFILE_FABCSFAB_DEV(SQD)); ! and it is not a tape device. 

; 1055 1582 IN_DEVICECTAPE) = ! Turn on the input file tape indicator | 
; 1926 1337 - INF ILE_FABCS$FAB_DEV(SQD)]; ! if the input device is a tape. 
— | 
; 1058 1585 OUT_DEVICECDISK] = ' Turn on the output file disk indicator 
3 1059 1586 -OUTFILE Aart. DEV(FOD)] AND ! if the output device is file-structured | 
: 1960 1387 NOT .OUTFILE_FABCSFAB_DEV(SQD) J; ' and it is not a tape device. | 
; 106¢ 1589 OUT_DEVICECTAPE) = ! Turn on the output file tape indicator 
: 106 1590 -OUTFILE_FABCSFAB_DEV(SQD)]; ! if the output device is a tape. | 
1068 1893 5: | 
: 1066 1398 i Determine whether the input and output files have compatible attributes. This 
: 1067 1594 ' check can only be done if both the input and output devices are the same kind 
3 1008 1595 ! and they are file structured. The check should not be done if either the 
3; 106 1596 ! input device or the output device is a network device. 
S107 1398 3° | 
; 1078 + If .in device NEQ .out_device | 
> 1074 1601 .in.device EQL 0 
1876 1808 THEN | 
: 1977 1604 ev se tree~rec_mode = YES 

; Hh 444 1008 IF NOT(. infile_fabC$FAB_DEV(NET)] ! If neither input or output is network then 

: 1081 1608 .outfile_fab($FAB_DEV(NET)}) 


COPYMAIN 
vO4-000 


#6 eet Bliss-32 V4.0-74 
COPY.SRCICOPYMAIN.B32; 


Page 3 


| 
| 


ut 
and specify write behind Tor’ mult i-buttertnn. 


Determine whether record-mode 1/0 is required for this file copy operation. 
At least one of the following conditions must be true for record mode 
operations to be performed: 

the input and output attributes are incompatible, 

the output file is being extended, 

the input and output devices are not the same type, 

both devices are record mode devices, 

this is a tape-to-tape copy AND 

the snput and output blocksizes are not the same 


PAEAPALALAAAAAAAAAAAAAAAA AAA AAA AO 


PAAATMUIMIUIN 


one tape is mounted foreign and the other is ANSI. 


So WO PUNO OOO NOU EWR =O Ooo NOUSWN OO OONOUS Wh 


IF .FORCE REC_MODE 
-EXTEND_OUTFILE 
.IN_DEVICE NEQ .OUT_DEVICE 


a a a a ae a a a a a a nn 
Sos 
oo 
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1984 23:39: 

71387 93:72: 
: 108 1609 A ! Compare the following input and output XAB fields: 
; 1088 1610 CIN_NEQ_OUT(XABSB_RFO) OR : Fecord format and’ file organization 
$ Re 1611 IN_NEQ_OUT(XABSB_ATR) OR ; record attributes 
; 1085 1el¢ IN_NEQ_OUT (XAB$B_BKZ) OR ! bucket size 
; 1086 161 IN_NEQ_OUT(XAB$B_HSZ) OR ! fixed header size 
: 1087 1614 4 CDUTETLE XABE NC EXABSY ART) NEQ 0 AND i maximum output record size (if any) 
; 1088 1615 4 -OUTFILE XABFHCLXABSW_MRZ) LSS : and longest input record 
3 1988 1918 3  INFILE_XABFHCCXAB$W_LRLJ)) ! 
3; 1091 1618 BEG ! If the input and output attributes are not identic | 
; 1038 1619 IF NOT .COPYSB_INCOMPAT ! and this oe has not appeared yet 
3; 109 16 9 THEN ! for this output file, 
3 1094 16 4 BEGIN 
; 1095 P 16 ¢ 4 PUT_MESSAGE( MSG$_INCOMPAT, 2 ! send the user a warning message | 
> 10 1623 4 N-NAME_DESC, OUT_NAME_DESC ); | 
$ 944 12 ¢ 4 COPYSB_INCOMPAT™= TRUE; ! Set flag saying that message is out. | 
3; 19 1626 FORCE_REC_MODE = YES; ! and force a record-mode copy. 
3 1 1627 END | 
3 1 1628 5 ELSE s : 
: : 16¢? 3 FORCE_REC_MODE = NO; ! Otherwise, turn the record-mode indicator off. 
:1 1631 2! | 
3 : : 3 Initialize the input and output RABs. 
:1 1634 
3: 1 P 1635 2 SRAB_INIT( RAB = INFILE_RAB, ' Setup the input file RAB as follows: 
: 1 P 1636 2 RAC = SEQ, ! Sequential record access 
3 1 P 1637 2 ROP = <LOC,RAH> ! GET locate, read ahead 
: ; : 3 2 FAB = INFILE_FAB); ' Input file FAB address 
3 3 P 1640 é SRAB_INIT( RAB = OUTFILE_RAB, ! Setup the output file RAB as follows: 
3 1 P 1641 2 RAC = SEQ ! Sequential access 
:1 P 4 4@ 2 FAB = OUTFILE_FAB, i Output file FAB address 
3 ! ; $7 § ROP = <TPT,WBA> ); Force EOF on every write or 
: 1 1645 2 
3 1 1646 
: 1 1647 
3; 1 1648 
3 1 1649 
3 1 1650 
- 1883 
3 1 1 5 
3 1 1654 
3 1 1655 
3: 1 1656 
3 1 1657 
3 1 1658 
3 1 1659 
3 1660 
$ ' : 1 
: 1 1 j 
3 1 1664 
3 1 1665 


_ 
- 
Ww 
oO 

oo 


pa19be fa:te:18 — Eedpyes 


OR 

~IN.DEVICE EQL 0 

( OR 

- INFILE_FAB CSFAB_DEV (SQD)] 
AND 


( .INFILE_FAB CFABSW_BLS] NEQ .OUTFILE_FAB CFABSW_BLS) ) 
( .INFILE_FAB CSFAB_DEV (FOR)] NEQ .OUTFILE_FAB CSFAB_DEV (FC.)) ) 
) 


Record mode 1/0 setup. 
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N 
BEGIN 


' 
: Indicate that record mode is required, block i/o will not be used for 
this file, and that the record operations will be synchronous. 


record_mode = YES; 
infile-rabCRAB$SV _B10)_ = NO; 
que TiLG reptRAged B10) = NO; 
infile_fabCRAB$v_ASY]_ = NO; 
tfile_rabCRABSV_ASY] = NO; 


ou 
t 
! Determine the size of the user's buffer which is passed to RMS. 

! If the input device is tape, then the user's buffer must be Large 

! enough to contain one complete tape block. Otherwise, (the input 

! device is not tape) use either the the maximum record size or the 

! the longest record length for the size of the user's buffer, if they 
! are specfied. If none of the above cases are met, use the longest 
legal transfer size as the length of the user's buffer. 

IF 


-in_device(tape] 
infile_rabCRAB$W_USZ] = .infile_fabCFABSW_8LSJ 
ag IF _ .infile_xabfhcCXABSW_MRZ] NEQ 0 
infile_rabCRAB$W_USZ] = .infile_xabfhcCXABSW_MRZj 
E -infile_xabfhcCXABSW_LRLJ NEQ 0 
infile_rabCRAB$W_USZ] = .infile_xabfhcCXABSW_LRLI 


ELSE 
infile_rabCRABSW_USZ] = max_io_length; 


ELS 


Set up the user's buffer within the 1/0 buffer pool. If the record 
format of the file is VFC, then allocate areas in the buffer pool 
for the fixed header and variable portions of the record. Otherwise, 


9 
18-5 -1984 23:39: AX-11 Bliss-32 V4.0-74 
yeree=}8Re H3:42:98 — Hehey BE SESeraatncosoes 


COPYMAIN 
v04- 


‘ just use the start of the 1/0 buffer pool as the start of the user's 
uffer. 
iF inti le fablFABSB_RFMJ EQL FABSC_VFC 


bCRABSL_RHBI uffer 


N 
infile_ra = .i0 basei 
gut tile rabCRAgsL RHBJ = Jinfile raBCRABSL_RHB); 
infile_rabCRAB$SL_OBF] = .io_buffer_base +~.infile_xabfhcCXAB$B_HSZJ; 


SE 
infile_rabCRAB$L_UBF] = .io_buffer_base; 
etermine the best multi-block count for copying the input file. Use 


hat MBC for both the input and output file haps. 
infile_fab CFABSW_BLS] GTR .outfile_fab CFABSW_BLS] 


ao 


Have RMS allocate enough buffer space to hold a complete block. 
infile_rab CRABSB_MBC) = (.infile_fab CFABSW_BLS] + 511) / disk_block_size 
IF .outfile_fab CFABSW_BLS) NEQ 0 
THEN 

The output device is record oriented and its block size is 

larger than the input device's. Therefore, RMS should 


' 
i 
i allocate enough buffer space to hold a comlete block for the 
output device. 
i 


OWONAOUES WN —OVONOuUsS wn —00On 


ELSE 


! This is either a disk to disk transfer or something else. 
Just use the system default. 


infile_rab CRABSB_MBC) = .rms_mbc; 
outfile_rab CRAB$B_MBC) = .infile_rab CRABSB_MBCI; 


PITIPIPIPININYIPIPIPINIPIPINPYNININIPUPYNINIPINPININININININININININNIN 2 2 


BRUISES NOU RON Son wor UNS OSEUR RR ARES SESS 


SOLS 


4 
Have RMS set up two internal buffers, to speed up processing. 


infile_rab CRABSB_MBF]_ = double_buffer; 
out ttlé_rab CRABSB_MBFJ = double_buffer; 


PAA DAA A AAA AAI ES BS BS ES BS ES BE WANA AAAI 
DOO NAWNE WN OS ODO NA MAE WN SO OD NAME WN OO ODNAVL EWN OOONOULW 


i Block mode 1/0 setup. 


Poronononoforofonoporony 


SLL 


M—COBNOUSWN—O 


ELSE 
BEGIN 


a a ee a ee ee ee ee ee ee ee ee ee 
a ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
SNS 


4 
4 
4 
4 
! The input device is tape or some other record oriented device. 


Wn & & & 
SN NN 
DWDONOUS WO 


RoPoPonoPy 


nfite_rab CRABSB_MBC) = (.outfile_fab CFABSW_BLS] + 511) / disk_block_size 


rm 


oO 
te) 


THEN 
RETURN NO_FILE; 
IF .EXTEND_OUTFILE 
OUTF ILE_RABCRABSV_EOF J 
IF NOT SRMS_CONNECT( RAB = 
ERR = 


15. 
14 


: AX-11 Bliss-32 V4.0-74 


9 
opr198e Faitasis — Yebey shedeapraalnco3e. 


' If the connect was not successful, 
! return an error indication to the caller. 


! If the output file is being extended, 
= YES; ! force end-of-file positioning on the following CON 


GUTFILE_RAB, ' Connect the output file RAB to the FAB, 
COPYSOUTOPN_ERR ) : 


! If the connect was not successful, 


specifying an error action routine. 


; 1253 1780 ' 

3 1254 1781 ! Indicate that record mode is not desired and that block mode will be 
; 1255 17 § ! used for both input and output, and that reading and writing will be 
3; 1 $ 17 ! synchronous. However, ASY will be set after the SCONNECT to avoid 

: i 7 4 i haveing to issue a SWAIT on the connect. 

3 1 § 17 : 

3; 1260 17 record.mode = NO; 

3: 1261 1788 infile_rabCRAB$V B10) = YES; 

> 126 1789 out ti l@rabCRABs? B10) = Yes; 

3; 126 1790 infile_FabCRAB$V_ASY NO; 

> 1264 1791 out filé_rabCRABS0_ASY) = NO; 

3: 1265 Ine 

: 1569 1532 S geccretne oh jate block size and buffer size f i 
3 ! Determine the appropriate block size and user buffer size for copyin 
3: 1268 1795 ' the current leuk tile. shit 
3 1269 1796 ‘ 

: 1270 1797 IF .in device(tape] 

: 1271 1798 THEN 

3: 127 1799 4 BEGIN 

3; 127 1800 4 block_size = .infile_fab CFABS$W_BLS); 

: 127 1801 4 infilé_rabCRABSW_USZ] = .infile-fabLFABSW_BLS); 

3: 1275 1306 4 E 

3 1276 1803 3 ELSE 

3 1277 1804 4 BEGIN 

3; 1278 1805 4 block_size = disk_block_size; 

3 1279 1806 4 infilé_rabCRAB$w_OSZ] =".rms_mbc * disk_block_size; 

3: 1280 1807 END; 

3; 1281 1808 

3 1See 1809 ‘ 

3; 128 1810 ' Set up the user's buffer, which are passed to RMS, within the I/0 

3; 1284 1811 ! buffer pool. 

3; 1285 Ho ! 

: 1286 is 

3; 1287 1814 infile_rabCRABSL_UBF] = .io_buffer_base; 

3.1288 1815 3 outfilé_rabCRABSC_RBFJ = .io_buffer_base + .infile_rabCRAB$W_USZJ; 

3: 1289 1816 END; 

3; 1290 1817 

3: 1291 1818 ¢ 

3 ' 38 1830 : Connect the input and output RABs to their respective FABs. 

> 1294 1 A 

3 tees P 18 IF NOT SRMS_CONNECT( RAB = INFILE RAB, ' Connect the input file RAB to the FAB, 
3 \ > HY: ERR = COPYSINOPN_ERR ) ! specifying an error action routine. 
3 1 1 

3 1 1 

31 1 

3 1 1 

3 1 1 

31 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 

3 1 1 


0.0009 00 09 60 09 9 09 G0 C0 CO 
SARUM —SOONOU 


SSSSSsssssy 


THEN 
RETURN NO_FILE; 


' return an error indication to the caller. 


fF 9 
COPYMAIN 15-Sep-1984 39 AX-11 Bliss-32 V4.0-74 Page 33. 
v0 Ja-Sep-1986 42:14:18 — LCdpyssRCJeOPYMAIN:032+1 ° 
; 1310 1837 
: 1311 1 8 | 
31 3 1 i Set ASY bit in ROP if block 1/0 mode. | 
; 131 1840 2 i 
: 1314 1841 
> 1315 1 ag IF NOT .RECORD_MODE ! If block 1/0 mode | 
31 1g 184 THEN i | 
; 131 1844 BEGIN i | 
; 1318 1845 INF ILE RABCRABSV ASY] = YES; ! indicate that reading and 
: 19 46 QUTFILE_RABLRABSV_ASY] = YES; i writing will be asynchronous | 
3; 1321 1 4 
51 ; 1 | 
3 7 1850 ! Return to the caller 
> 1324 1851 2 | 
71 $5 183¢ | 
; 1326 185 RETURN OK; ! Return a success code to the caller. 
; 1327 1854 END; 
| 
.EXTRN SYSSCONNECT | 
OFFC 00000 RMS_SETUP: | 
.WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10,R11 2 1495 
5B 00006 CF 9 0000 MOVAB INFILE_ FAB+64, R11 ; 
5A 00006 CF 9E 0000 MOVAB $RMS_PTR+4, R10 : 
39 00006 FYE 0000¢ MOVAB $RMS_PTR+4, RO : 
5e 10 C2 00011 SUBL2 wig P : 
OOOIFFFE 8F DD 00014 PUSHL #131070 : 1536 
0000' cr DS OOO1A TSTL  J0_BUFFER_BASE > 1555 
1 12 OO01E NEG 1$ ; 
0000' CF 9F 000 PUSHAB 10_BUFFER_BASE > 1566 
04 AE 9F 00024 PUSHAB IO"BUFFER-LENGTH ; 
000000006 00 0 FB 90027 CALLS #2, LIBSGET_VM ; 
20 50 £8 0002E BLBS STATUS, 1$ ; 
1 bp 0031 PUSHL #1 > 1568 
7E 115A BF 3C 00033 MOVZWL #4442, -(SP) ; 
E 04 000 CLRL = = (SP) ; 
50 DD 90 A PUSHL STATUS ; | 
7E ps4 03¢ CLRL if ; 
7E 1124 8F 3C 000 MOVZWL #4388, -(SP) ; 
0000v CF 01 FB 0004 CALLS #1, COPYSMSG_NUMBER ; 
0 DD 04 PUSHL RO ; 
000000006 00 $ £B 000A CALLS #6, LIBSSTOP ; 
94 00051 1S: CLRB ss IN._ DEVICE > 1575 
0 94 0053 CLRB  - OUT_DEVICE : 1576 
51 01 AB 1 06 EF 0005 EXTZV #6,7#1, INFILE_FABCGS, RI : 1580 
52 68 1 9 Ff 00 EXTZV #5, #1, INFILE-FAB+64, R2 ; 
57 01 ) 24 FO 3 Paces Ri. #0, #1 IN_DEVIC | 
51 68 1 03 EF 0068 EXTZv. #5. #1, INE ILETPAB*OS, R1 ; 1583 
7 01 1 1 FO $ INSV RI, #1, IN“DEVICE ; | 
1 00G CF 1 bE EXTZV #6, #1, OUTFILE_FAB+65, RI ; 1587 | 
2 006 CF 1 cf 7 EXTZY #5. #1, OUTFILE-FAB+O4, R : | 
1 A 080 BICB2 R2. RI ; | 
50 01 1 FO 000 INSV RI, #0, #1, OUT_DEVICE ; 


9 -11 Bliss-32 V4.0-7 Page 34 
COPYMAIN 18-sep Sep-1986 12:14:18 — ECopy.sRCJCOPYAAIN. B32; | wl 
vos“000 EXIZV #5, #1, OUTFILE FAB+G4, RI tid, 
1 00006 EF ot ; &f er INSV ; #1, #1, OUTZDEVICE i 1599 
$0 FOF ORO e CHEB i oevice, OUT_DEVICE a 
50 <1} Go095 Beas Pan 
tts : 1601 
és i 009 as: si8 iN. DEVICE ps 
a5 i Ay BBS. a5. INFILE FABSOS, 5. g 1606 
SE 0006 CF ; 5 a0A8 CMeB TNF ILE. att ee ouT# Le _XABFHC+8 ; 1610 
etd) sesame 12 0088 CEB [AFILE_XABFHC*9, OUTFILE_XABFHC+9 Seats 
0006 CF 00006 CF 91 00087 CHB INFILE_ pe 
0 5 i O9e6 once NFILE_XABFHC+22, OUTFILE_XABFHC+22 é 
00006 cf 00006 FF 12 000¢ EMBs INFILE_XABFHC+23, OUTFILE_XABFHC+23 ; 1613 
ers eS Th Soe BNEQ r : 1614 
F $C 0b MOVZWL OQUTFILE_XABFHC+24, RO : 
eae $5 15 D000 CmPH «INFILE_XABFHC#10, RO 3 1616) 
50 00006 -CF 81 00009 CHEW - Faas! 
Cf £8 QOOEO 38: BLOBS” COPYSB_INCOMPAT, 48 z 1619 
22 -Bbous EF SF Oboes PUSHAB OUT NARE SDESC 
cecal aS ee a ; 
Hj — i i Ors CALLS” Hi, COPYSRSG, NUMBER : | 
F : 
one ¢ 50 DD 000F9 che a, LIBSSIGNAL : 1624) 
000000006 00 Bt 88 botpe MOVE COPYSB_INCOMPAT ; 1636 
— = O1 BO OO107 48: MOVE. «AY. FORCE REC ODE : 160s 
. i 2019 eRe, SSece Rec Move + 1888 
: BC o10¢ 88; MOVES «ON CSP) cw". #68, SRMS_PTR 
6E ; 
0044  8F 00 FC OAY 011 SRMS_PTR 
FC OAD 4401 8F 80 Bite MOVE #50088, SRMS~PTR+4 : 
69 00010200 8F D0 00110 CLRS «SRMS PIR? 
1A AD 96 0016 INFICE FAB, SRMS_PTR+60 1643 
38 Ad CO ABE O0te7 MOVCS AOL CSP). 0. #OB, SRMS_PTR ; 
0044 = oF - - FC AA \ ; #17409, $RMS_PTR 
Fe Rebs BE BC O0t ROVZWL #102 saat “PIR+4 
“ TA AA 94 01% NOVAS QUTFILE FAB, $RMS_ PTRSGO 4729 
AA = 00006 CF 1 10_ BUFFER BASE, RT : 173 
38 ° 14 MOVL $ 
51 0000 gf D BLBS FORCE RECMODE, 9 > 1663 
ee: ae ets STB COPYSSER_STATUS®2 Sew 
18 001 BLSS - : 1665 | 
1D 3 Ge ste IN’DEVICE | 
18 BEQL ¥ ; 1670 | 
i? 13 BBS INFILE_FAB+64, 8S ; ial 
% ns 0086 31 165 TS: BR TFILE_FAB+60 : | 
INFILE_FAB*60, OUTFILE_ | 
00006 CF FC AB 81 00165 8$: CMP 
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een 
24 =O 39 


000000006 90 


01 3 =AA 


000000006 9° 
06 0000' cf 


; Routine Size: 668 bytes, 


Routine Base: 


14.52 
14-Se 
8 af 35 
0000vV CF if D 22$: 
FC Ag 44 ei 
9 : $8 
0000' y i 
‘<7 
1 8 7 
0000v CF F 78 238: 
FC AA 4 ft 
6 £9 ss 
oi eet 
+ 3 38 248: 
4 00298 
50 D4 00299 25$: 
Be 0298 


SCODES + O36F 


pa1984 f2it4 


PUSHAB 


ps 


OoOowor 7790 -9- 


aeRZ 


48 


AX-11 8 


Liss-3 
COPY. sk RCICOPY 
RO 


AF LE. RAB+32, R 


COBYS ig 


Inf Ite 
a 


i 


#i, 


INF 


ON ERR” ~RAB+40 


bet necr 
SEM_STATUS+2 


UTFILE_RAB+5 
en ERR 


YSSCONNECT 


ny tte ws STATUS+2, 24$ 


RAB+4 


sl. ; OUTFILE. RAB+4 


RO 


2 V4.0-74 
MAIN.B32; 


9 
cOPYMAIN 1BaSep-1984 28:59:26 YAK=1T BL ies 32 4.0274 Page 3 


; ! : ! 55 ! PSECT CODE = COPYSCOPY_FILE (ALIGN(9)); ! Force page alignment for this routine. | 

3 1 1 i i ROUTINE COPY_FILE = ! Copies an entire input file to the output file | 

:1 : 1889 1 t+ | 

: ; ¢ 1 ? : } FUNCTIONAL DESCRIPTION: 

: 1 1 : ii This routine copies an entire input file into the output file, 

: : i : o7 : using block mode 1/0 if possible. | 

; 1339 1865 1 This routine is page-aligned in order to minimize page faulting | 

: ; ? : ! : due to executing the code which performs the actual file copying. 

:4 é 1868 1 i FORMAL PARAMETERS: 

3 3 1869 1! 

ieee it +) 

; 1346 1872 i IMPLICIT INPUTS: 

3 1348 ere 1 RECORD_MODE - Indicates whether record mode 1/0 is required 

3 1349 1875 1! INFILE_FAB = Input file FAB 

; 1390 1876 i INFILE-RAB = Input file RAB 

; 133¢ 1878 1 ! IMPLICIT OUTPUTS: 

: 1334 1880 1! RECORD_COUNT - Number of input file records copied 

: ! 2 138) | BLOCK_COUNT = Number of input file blocks copied 

; 1357 1888 ! COMPLETION CODES: 

: 1359 1885 1! OK = successful copy 

3 1361 1887 ' } ERROR = 1/0 error during copy 

:1 1888 1 | SIDE EFFECTS: 

: 1368 1889 1! 

3 1 1890 1! None 

RE 

71 1898 1 

3 1 1894 BEGIN 

: 139 1896 LOCAL 

> 1371 1897 NEXT_READ; ! Temporary buffer pointer 

HB BRE 

71 1900 2 | Initialization 

i] 1901 3 | | 

: 1 1908 RECORD_COUNT = 0; ' Zero the input file record | 

: 1 Hp BLOCK_COUNT = 0; ! and block counters. 

: ane | 

: ; is If necessary, copy the input file to the output file one record at a time. | 

3:1 1 | 

3 1 1910 IF .RECORD_MODE ! Test the record mode 1/0 indicator. 

3 3 1911 THEN | 
| 
| 
} 


9 
HESeoctgle GEARGE WAST SRLSege¥R ts 8304 race 
Beginnin of the record sony ans loop which 


be terminated by a RE event 
of an input end-of-file or any 1/0 error. 


WHILE 1 DO 
BEGIN 


IF NOT SRMS_GET( RAB = INFILE_RAB ) 


THEN 
BEGIN 


IF .INFILE_RABCRABSL_STS] EQL RMS$_EOF 
RETURN OK; 


IN READ_ERROR() ; 
RETURN ERROR; 


END; 
OUTFILE_RABCRABSL_RBFI = 
. INF ICE RABCRABSL_RBF I; 
OUTFILE_RABCRAB$W_RSZ) = 
INF ICE_RABCRABSW_RSZJ; 


IF S$RMS_PUT( RAB = OUTFILE_RAB ) 


Get one record from the input file. 


If the get was not successful, 
begin error processing. 


If the error was an input end-of-file, 


ee) 


return a success code to the caller. 


Otherwise, send an error message to the user 
and return an error code to the caller. 


End of input error processing. 


Copy the input record address 
and record length 

from the input file RAB 

to the output file RAB. 


Write one record into the output file. 


If the put was successful, 
increment the record counter. 


THEN 
in = .RECORD_COUNT + 1 


Otherwise, 
send an error message to the user 
and return to the caller. 


BEGIN 
OUT WRITE ERROR(); 
rome ERROR; 


BESS FAWN DIPUNINUNINIDY 2 SS OS 


END ! End of record mode copy loop. 


If possible, copy the input file to the output file a block at a time. 


LSE 
WHILE 1 DO 


Beginning of the block copying loop which 
BEGIN fe Pt URN 3 


will be terminated by ar in the event 
of an input end-of-file or any 1/0 error. 


S$RMS_READ( RAB = INFILE_RAB ); 
IF NOT SRMS_WAIT( RAB = OUTFILE_RAB ) 
THEN 


Begin an asynchronous read from the input file. 


DOONAN WIN $0 OONAUE WN $$ O ODNAU EWN SO OONAUE WN OODONOULE WT 


PUVA UTUION ££ 


Wait for the previous write to complete. 


WOOO DOVODOO OOO DOO ODODODODOODDODOODDODODODODOODODDDODODODODODOODNDNOOO 


Be Oe Be Se Oe Se Se Se Se Se Fe Se SF Se Se Ge FHSS SS Se Se Se Ge FHSS Ss Se Se BF Se Se BF Se SF Ge Se Gs Se SF Ss SF Ss Ss SH Ss Se Se Se Se Se SF Se FH Ss Ge Sete 
ee eee ee ee ee ee  _.. ee ee eee 
a a ee ee ee en en ee ee ee et ee ee ee 


PAPUA & BF PUSAN AAMAS & FAIA BAIA ANIA BBB PPP EE PASE PW 


60 BEGIN ! If the write was not successful, 
435 61 OUT_WRITE_ERROR(); ! send the user an error message, 
4 oe6 SRMS_WAITT RAB = INFILE_RAB ); ! wait for the previous read to complete, 
4 96 RETURN ERROR; ' and then return an error code to the caller. 
: ace END; 
rr | 386 IF S$RMS_WAIT( RAB = INFILE_RAB ) ! Wait for the previous read to complete. 
442 968 BEGIN ! If the read was successful, 


9 | 
COPYMAIN ib-se -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 39) 
y04~000 12-8 08-1obe 93:92:48 YCOPY . SRCICOPYMAIN. B32: . 3 
: et 1369 : Ne Ae ie NOt ies: eer) } save the current output buffer address | 
3 1445 130) 4 OUTFILE_RABCRABSC_RBFJ] = ~ : i and copy the input block address and block size | 
: 1058 1 4 4 - INFILE RABLRABSL_RBF I; ! from the input file RAB into the output RAB. 
3 144 1975 4 OUTF ILE_RABCRABSW TF = ! 
; er | 1308 ? INF ILE_RABCRABSW_RSZ); ; | 
; 133) 1976 4 SRMS_WRITE( RAB = OUTFILE_RAB ); ! Initiate an asynchronous write. | 
: 14 § 1308 4 BLOCK_COUNT = .BLOCK_COUNT + ! Increment the count of blocks written. 
: 145 1979 5 (INF ILE RABCRABSW_RSZ] + ! 
: 1488 1300 2 -BLOCK_SIZE - 1) /~.BLOCK_SIZE; ! 
: 14 $ 1386 3 ELSE ! If the read was unsuccessful, | 
3 145 1983 4 BEGIN ! begin special input error processing. 
3 1458 1984 4 
Me OBE 
: 1461 1967 4 RETURN OK; i return a success code to the caller. 
: 1288 1989 4 IN_READ_ERROR(); ! Otherwise, send an error message to the user 
3 1464 1990 4 RETURN ERROR; ! and then return an error code to the caller. 
; et ad END; 
: 1467 1998 END; ! End of block mode copy loop. 
> 1468 1994 
3: 1469 1995 RETURN OK; 
: 1470 1996 1 END; 


.EXTRN SYSS$GET, SYSSPUT 
“EXTRN SYSS$READ, SYSSWAIT 
TEXTRN SYSSWRITE 


-PSECT COPYSCOPY_FILE,NOWRT,9 


IF .INFILE_RABCRABSL_STS] EQL RMS$_EOF } If the error was an input end-of-file, 
003C 00000 COPY_FILE: 
WORD 


‘ Save R2,R3,R4,R5 : 1857 
55 0000" CF 9€ 0000 MOVAB BLOCK_COUNT, RS : 
24 000000006 00 9€ 0000 MOVAB SYSSWAIT, R : 
3 00006 CF 9E 000 MOVAB OUTFILE RAB+40, R3 ; 

= en SS 001 ee alk rmat * ? 1904 

2€ 360 AS og Fi ol, a“ BBC i COPYSSEM, STATUS#2, 3$ ; 1910 
000000006 2 gi FB 09 } CALLS a, $YSSGET : 

6 38 A oO 09 B MOVL  INFILE_RAB+40, OUTFILE_RAB+40 : 1931 

FA AS : A e O02F vu INF ILE RAB+34, OUTFILE~RAB+34 : 19 3 

D8 AS OF 90 PUSHAB QUT ILE_RAB : 19 

000000006 00 gi FB 7 CALLS #1, SYSSPUT : 
5 E F BLBC = RO. «2S : 

04 3 6 0041 NCL pee ; 1938 

4 A #0, OUT_WRITE_ERROR : 1941 

0000v CF 09 re 046 2$ C LLS #0 OUT_WRITE_ 1961 


een 


3; Routine Size: 


1471 


180 bytes, 


1997 


000000006 00 


0000v CF 


24 é3 
6 
FA OA 


000000006 


0001827A = BF 
0000v CF 


Routine Base: 


1 PSECT CODE = SCODES; 


9 
1 
1 
3 DD 4D 3$: 
FB 4F 
d8 AS OF § 
1 4 
E C 
FB F 
DD 64 
1 fe 
41 1 6 
52 0D 6B 4$: 
4 FB 00 98 
56 99 
65 D ? 
$8 A2 D itd 
Ag 80 00078 
D8 AS OF 444 
01 FB 0008 
22 Ae 3C QO08A 
14 AS CO 444 
50 Dd? 0009 
14 AS C6 00094 
50 CO 00098 
BO 11 00098 
08 A2 D1 0009D 5$: 
09 13 O00A5 
00 FB QO0A7 
02 00 OOOAC 68: 
04 OQOOAF 
01 00 00080 7$ 
04 00083 


COPYSCOPY_FILE + 0000 


-Sep-1 
ti 


Be F2:10:48 


AX-11 Ot fesese eet ef 
COPY.SRCJCOPYMAIN.B32; 


R 

if SYSSREAD 
oufFiLe RAB 

#1, SYSSWAIT 

#0, OUT_WRITE_ERROR 
#1, SYSSWAIT 


6$ 
Hi 
#1, SYSSWAIT 
RO, 5$ 


OUTFILE_RAB+40, INFILE_RAB+36 
INFILE_RAB+40, OUTFILE-RAB+40 
TFILE-RAB+34 


INF ILE~RAB+34, OU 
OUTFILE RAB 

#1 WR 
INF ILE RAB+34, RO 
BLOCK, SIZE, rb 


BLOCK SIZE, RO 
RO, BCOCK_COUNT 


NFILE_RAB+8, #98938 
#0, IN_READ_ERROR 
#2, RO 


#1, RO 


Bee Se Se Ge Ge Ge Se Ge Fe Fe Ge Se Be Se Ge Ge Se Ve Ge Se Se Se Se Se Se Se Ge Fe Se 


! Resume the default PSECT (see previous routine). 


i 


9 
copnnan HESeoct9Rs 25:30:28 YAGI Btdssc v4. g274 rane if) 


; 1473 ROUTINE CLOSE_INFILE : NOVALUE = ! Close the current input file 


J 
Ws 
—— 


'e¢ 


{FUNCTIONAL DESCRIPTION: | 
This routine closes the current input file. | 

FORMAL PARAMETERS: 

None 

! IMPLICIT INPUTS: 


INFILE_OPEN = Input file een indicator 
INFILE_FAB = Input file FA 


IMPLICIT OUTPUTS: 


INFILE_OPEN = Set to indicate that the input file is not open 
INFILE_FAB = Input file FAB closed 


| 
ROUTINE VALUE: | 
| 
| 
| 
| 
| 
| 


SSssss3s3 
OOooooono 
UEWN—OOo 


Se 


=POPIPIPIPIAINMIPYINPINPOAPOPOPDPIPIPIPINPY PUP PIPINIDID 2 0 SS SS St 


SSBUSALAV ASSN 


Sk ele ek kk Dek ede Ie Ie I ee te te 


ooo 
wr 
lelelelelolelolololololo! 


None 
: SIDE EFFECTS: 
None 


SSR2LEAR 


ooo 
Wr 


BEGIN 


' 
Return to the caller if the input file is not open. 


PPPAAUISIVIVIN & £ I 


ooo 
SSLERE 
MEUM “SO OONOUSWN —OOONOULS WC OM 


OOQoooooocoooooooocoo 


WIAA AI nonononononony 


ye aA END IND dt td 2d 2d td OOOO: 


IF NOT .INFILE_OPEN 
RETURN; return to the caller. 
INFILE_OPEN = NO; ! Otherwise, turn off the open indicator. 


If the input file is not open, 


NOPOROROROfORONOfononononononononononofnononony 


' 
: Close the input file. 


SOOoooooo°oeo 
te a et ee kb he 


SRMS_CLOSE( FAB = INFILE_FA 


B Close the input file FAB, 
ERR = IN_CLOSE_ERROR ); 


specifying an error action routine. 


£ 
Return to the caller. 


NOUS WN —OOONOUSWN—O 


POPOPOPOPONNUD 2 2 


RETURN; 
END; 


Return to the caller. 


Be Se Be Be Se Se Se Oe Se BH Se Se Se Se we Se Be Se Ge FHS Ge Be Se Ge Ge Ss Ge Se Se Gs Ss Ge Ss Ge Ss Se Se SF Ss SF Ss Se Ss Se Ss Oe See Se Se Se Se Se Sears 
ee ee ee ee ee me ee a ee ee ce ee ek ce ee a ee ec ee ee ee ce ee ce ee ed ee ce cee ee ed ed ed ae ee 


PUPP DV IVSUDVIVSUSVDV SUSI SVS SII 
SSSSSEFPEE 

DI & & 

PWN“ OOCONOUE WN OOM 


hors’ 
ooo 


COPYMAIN =-1984 23:39 
vO4~000 pa 1984 2:14 
sEXTRN 
»PSECT 
0000 00000 CLOSE_INFILE; 
16 0000" CF 02 £1 00002 BBC 
0000" CF 04 8A 00008 BICB2 
Qooov CF 9F 00000 PUSHAB 
00006 CF 9F 00011 PUSHAB 
000000006 00 02 FB 00015 CALLS 
04 O001C 18: _— RET 


; Routine Size: 29 bytes, Routine Base: SCODE$ + 0658 


: AX-11 Bliss-32 V4.0-74 Page 42 
‘#8 NPY SRCTeOPTAAIN oSoc7 . (10) 
SYSSCLOSE 
SCODES,NOWRT,2 
Save nothin ; 1998 
#2, COPYSSEM_STATUS+2, 1$ ; 2035 
#4, COPYSSEM_STATUS+? ; 2039 
IN_CLOSE_ERROR 3; 2046 
INF ILE_F 3 
#2, SYSSCLOSE ; 
3; 2054 


i 
a 


A 


COPY. SRCJCOPYMAIN.B32; 


10 
COPYMAIN 15 $ep-1984 23:39: AX-11 Bliss-32 V4.0-74 
v04~000 14 ety 7 93:72:98 Hatatiy: g 
—E = ! Close the current output file 


GLOBAL ROUTINE COPYSCLOSE_OUTF : NOVALU 
144 


i FUNCTIONAL DESCRIPTION: 
This routine closes the current output file. 
FORMAL PARAMETERS: 
None 
IMPLICIT INPUTS: 
OUTFILE_OPEN = Output file open indicator 
OUTFILE FAB = Output file 
TRUNCATE_BIT in COPYSCLI STATUS if /TRUNCATE was specified. 
IMPLICIT OUTPUTS: 


OUTFILE_OPEN = Set to indicate that the output file is not open 
OUTFILE_FAB = Output file FAB closed 


ROUTINE VALUE: 
None 
SIDE EFFECTS: 
File is truncated if /TRUNCATE was specified. 


PASSA 


MSW 0 DONA WN" OVDONOu 


SN NNO 


PEASANTS BB EEE EE 


WN SO VONAUVUESWN S$ OODNOUFWN OC OODNOULS WN 


an 


BEGIN 
] 
: Return to the caller if the output file is not open. 


VHA 


OOO 00000000000 0000 


Oo 
DOOCSOOSOOCOCOCOOOOOOO WOOoOowooyws 


SOCooooooooooooooocoooo 
—OODNOAUEWN 0 OONOA UE WN O ODNOAOUE WN —“OOOno 


6 

6 

$ d a -OUTFILE_OPEN If the output file is not open, 

, RETURN OK: i return a success code to the caller. 

7 OUTFILE_OPEN = NO; ! Otherwise, turn off the open indicator. 


~“ 
CONAOUEWIN OOO 


.] 
Close the output file. 


SANS 
~o 
v0 


SRMS_CLOSE( FAB = OUTFILE_FAB ! Close the output file FAB, r 
ERR = COPYSOCLOSE_ERR ); ! specifying an error action routine. 


' 
! Reset the incompatible messages Step to FALSE for the next output file. This message 
; indicates whether an incompatible a tributes has been output for an output file. 


SS tre whet 4 


3 1 
3; 1 
3; 1 
3s 1 
a. 
3 1 
: 1 
3 1 
3 1 
3 1 
.% 
7 
. 
3 1 
3 1 
3 1 
: 1 
| 
3 1 
3 1 
3 
3 1 
£ 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
3 1 
at 
3 1 
31 
3 1 
3 1 
3 1 
3 1 
s 9 
3 1 
3: 1 
3 1 
: 1 
3 1 
31 
31 
: 1 
s ¥ 
3 1 
3 1 
31 
/-£ 
31 
3 1 
3 1 
3 1 
3 1 
: 1 


PUPP PPV PU PUPVLUPV DVIPS PUPULU SUSU SUSU SUSUSUSUSU SUSIE 


PIPIPIPIPOPIPOPDPONINIMYIAIMININININININININININININININYANINNINININININININPINYNINIPINIPININIPIPININININYNPINPIPININY 


RIPDPOPIPIPINONYNPNINNPONPYINYININPOPIPRINPOAINPINIDINID) 8 9 9 SS SS SS SS SS SS SS SS SS 
PS . 


et ee es st = 1 I IO 


oo 
~ 
—~— 


COPY$B_INCOMPAT = FALSE; ! Reset incompatible flag 


Page 43. 
% (11). 


COPYMAIN 15-Sep-1984 23:39: AX-11 Bliss-32 V4.0-74 
04-000 1a-8ep- 138 $3; 214: ‘#8 ONPY SREIEDPTAAIN O5ect 
3: 1 11 
1886 1g 3. 
3 : 4 We } Return to the caller. 
3: 1 35 118 
: 159 11 RETURN; ' Return to the caller. 
3 1594 118 
3; 1595 11 END; 
0000 44 -ENTRY COPYSCLOSE wre ress nothing 
18 0000" CF 6} 1 He BBC #1, COPYSSEM S+2, 1$ 
0000" CF 2 8A 0000 B1CB2 #2 COPYSSEM_ ST Tues 2 
0000v CF 9F 0000D PUSHAB COPYSOCLOSE_ERR 
0000G CF 9F 00011 PUSHA OUTF ILE Ay ¥ 
000000006 00 02 FB 00015 ALLS #2, SYS 
0000" CF 94 QO0IC CLRB COPYSB_ INCOMPAT 
04 00020 1$: 


; Routine Size: 33 bytes, Routine Base: S$CODE$ + 0678 


10 | 
COPYMAIN 18-c0 -1984 23:39: AX-11 Bliss-32 V4.0-74 P 45 
vo% 14 att 93:32:98 tCOPY.SRCICOPYMAIN. B32: 79° 12), 


; 1338 } 9 } ROUTINE BYPASS_CONCAT = ! Bypass concatenated input files 

; 1599 1 ¢ 1 44 
3 1980 , 7 : FUNCTIONAL DESCRIPTION: 
3 1986 ! 5 : This routine scans past concatenated input file-specifications. 
3; 1604 1 : 1 ! FORMAL PARAMETERS: 
; 1605 128 1! 
3 1908 129 1! None | 
; 160 130 1! | 
: 1998 131 1 ! IMPLICIT INPUTS: 
3; 160 1 ; 7% | 
; 1or9 : Z : Bits in the status words COPYSCLI_STATUS and COPYSSEM_STATUS: 
; 16l¢ 135 1! APPEND_COMMAND = APPEND command indicator 
3 Mb oF ; $ ! CONCAT_FOLLOWS = concatentation is occurring | 
3; 1615 138 1! INFILE_ DESC = Input file request descriptor 
; 1618 1% : } CLEANUP_DESC = Input file cleanup request descriptor 
3; 1618 141 1°! IMPLICIT OUTPUTS: 

3: 1619 Vp 1! 

; 1620 1435 1! CONCAT FOLLOWS = Concatenation active indicator turned off 

; ie) $8 ! WILDCARD_ACTIVE - Wildcard active indicator turned off 
° . } 
3 1853 146 1 ! ROUTINE VALUE: 
3: 1624 147 1! 

3; 1625 148 1! None 

3: 1626 149 1! 
3 1627 150 1 ! SIDE EFFECTS: 
3; 1628 151 1! 
3 Ha $126 7% INFILE DESC = Input file request descriptor filled in by the CLI 

3 Hts $127 ' CLEANUP_DESC - Input file cleanup request descriptor filled in by the CLI | 
3 1632 $122 1 !-- 

3: 1633 156 1 

3 1634 157 BEGIN 

: 1635 158 

3: 1636 159 LOCAL : : 

3 los? HS DESC : SBBLOCKC DSCS$C_S_BLN J ! Descriptor for input file name 

3; 1639 166 
3; 1640 16 ! 
3 1641 164 ! Initialize descriptor. 
; 1946 165 : 
3 164 166 CHSFILL( 0, DSCS$C_S_BLN, DESC); 
> 1644 167 DESCE DSC$B_CLASS"J~= DSC$K_CLASS_D; 
3 1645 168 | 
3 1046 19? ! 

3 164 170 ' Return to the caller if input concatenation is not active. 
3: 1648 171 : 
3: 1649 1% 

3; 1650 17 IF NOT .APPEND_ COMMAND AND ! If this is a COPY command 

3 163) fA Wer - CONCAT_FOLLOWS and no input concatentation is active, 

3 183 176 RETURN false : then return to the caller. 


vb N 


t 
be 


4 10 
15-Sep- 
14-Sep 


BEGIN 
WILDCARD_ACTIVE = NO; 
Fj JNFILENAM_GLKCNAMSB_RSL NEG 0 


3 1 
3 1 
3 7 
3 7 
3 3 
3 1 
. % 
3 1 
3 7 
3 1 
3 1664 
; 1665 
rH 1o38 I : 
; 166 T } 
3; 1668 4 EGIN } 
3; 1669 4 INF ILE_NAM_BLKCNAM$B_RSL] = 0; ; 
; 1670 4 REPORT_BYPASS( MSGS_NOTCMPLT 3; i 
3; 1671 END; 
; 197¢ END; 
3; 167 
3; 1674 : 
3 1676 } Scan past any concatenated input file-specifications. 
: 167 
H \ore WHILE CLISGET_VALUE( SDESCRIPTOR('INFILE'), DESC ) DO 
3; 1680 IF COPYSFIND_INPUT_FILE( DESC ) ' 
3: 1681 THEN 
3; 168 2 REPORT_BYPASS( MSG$_NOTCOPIED ); } 
3: 168 $06 
3 1684 07 ! 
3; 1685 208 ! Return to the caller. 
3; 1686 09 : 
3: 1687 10 
3; 1688 11 RETURN true; } 
3; 1689 sig 
3 1690 2213 1 END; 
-PSECT 
45 4C 49 46 4E 49 Q004C P.AAH: ony 
00000006 54 P.AAG: 
00000000" 00058 
»PSECT 
003¢ 00000 BYPASS_COMCAT 
5E 8 ge g SUBL 
08 00 6E 0 2 H MOVC 
03 AE 5 90 00008 MOVB 


Be f2iteits 


rth Bliss-32 A et ot 
COPY. SRCICOPYMAIN.B32; 


If a wildcard spec is currently active, 


$26 ELSE 

: 5 CONCAT_FOLLOWS = NO; 

637 ! 

228 Report an wildcard specification which has not been completely processed. 
660 . 

661 IF .WILDCARD_ACTIVE ! 

666 THEN ' 

3 ! 


turn off the wildcard indicator. 
If the wildcard spec is partially processed, 


discard the current resultant name string, 
and report the bypass wildcard spec. 


Parse the input file-specification. 


Report that the file was not processed. 


Return to the caller. 


SPLITS,NOWRT ,NOEXE ,2 
\INFILE\ 


«LONG 
-ADDRESS P.AAH 


SCODES ,NOWRT ,2 


Sigh opie 
#0, (SP), #0, #8, DESC 
#2, DESC+3 


! Otherwise, turn off the concatenation indicator. 


Page 46. 


(12) | 


! 


Cor pO N 


. an 

19 : 

0 g 

0000V 

000000006 

0000V 
; Routine Size: 102 bytes, Routine 


1 
1 
0000' F ft of 
8 A fo0ik 1s: 
wens 
000G CF 94 000 
walt 
0000' CF 9F 3 ? 
¢ 44 44 
eS $i 
$i £8 90086 
11B8 ~=s BFF e 0058 
DA 11 0005D 
01 DO OOOSF 4$: 
50 pe 00068 5$: 
04 bpoe 


SCODES + 0699 


10 
Ceci ERLE art! Rea HRlt bt 


BL8BS §§ CUPYSCLI_STATUS, 1$ 

BBC #3, COPYSSEM_STATUS+2, 5$ 
BICB2 #8. COPYSSEM~STATUS+ 

BBC #5. COPYSSEM-STATUS+2, 3$ 
BICB2 #32, COPYSSEM STATUS+2 
TSTB NF ILE_NAM_BLR+5 

BEQL 5 

CLRB INE ILE_NAM BLK+3 

MOVZWL #4544, ~- 

CALLS #1, REPORT_BYPASS 

PUSHL SP 

PUSHAB P.AAG 

CALLS “3, CLISGET_VALUE 

BLBC = «RO, 

PUSHL SP 

CALLS #1, COPYSF.IND_INPUT_FILE 
BLBC 30. «RO, «3 

MOVZWL #4536, -(SP) 

BRB $ 

MOVL #1, RO 

RET 

CLRL = RO 

RET 


Be Ge Ge Se Be Fe Ge Se Fe Se Be Fe Fe Fe Ge Ge Se Fe Se Se Ge Ge Se 


10 | 
835" VERE GENIAL ABST RLesoth it rae tf 


GLOBAL ROUTINE COPYSFIND_INPUT_FILE ( INFILE_DESC : REF SBBLOCK ) = 
te 


'e4 
: FUNCTIONAL DESCRIPTION: 


PACA O 
SSSSSESFSS 


This routine calls RMS to parse an input file-specification. 
FORMAL PARAMETERS: 

None 
IMPLICIT INPUTS: 


INFILE_FAB = Input file FAB 
INFILE_NAM_BLK = Input file name block 


IMPLICIT OUTPUTS: 
INFILE_FAB = FNA and FNS fields filled in. 
COMPLETION CODES: 


OK = Successful parse 
ERROR = Error from RMS parse 


SIDE EFFECTS: 
None 


oO 
wr 


SANS SISO OO 


NOPIPININOPONINUA) — st 2 2 


BEGIN 


oO oO 


find_file_context : INITIAL(O); ! Context parameter for LIBSFIND_FILE 


LOCAL 
resultant_name_desc : SBBLOCKC DSCSC_S_BLN J, ! Descriptor for filespec returned by LIBSFIND_FILE 
find_file_nam : REF $BBLOCK(I, ! Pointer to NAM block used by LIBSFIND_FILE 
status; ! Status returned by LIBSFIIND_FILE 


co~ 


VSSSsS 
rrr 
RIPQPINPINININININPININYAININIPNININPIPINIPININININININININININIPIPIPIPINIPIPIPIPIPYPIPINYPIPINIPIPIPUPIPUNIPIPYPIPD 


SNS SNS SSN NSS SSS SSS 
PRE_EXR_D AAAS & Se BB BEL WWW ANNAN RONINPPUPININININY 2 SS 


Be Se Se Se Be Se Se Ge Se Se Se Se Se Se Be Se Se Ge Se FH Se Ge Se Be Ge Se Sse Ge Ge Ge Ge Se Ge Ge Ge Ge Se So Se Se Se Se Ge Se Se Se Se Se Se Ss Ge Se Se Se Sees ee 
ek ee a ee a a ae ee a a a ee ee ec ee ce a a cee ee ed a ee a odd 
VIS Cr Sato > DOO OA NI ODO NOME WI 2 OOOO GOH ARIS DO9 MOOV MPO DO0 IU 
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BIND 

: find_file_fab = find_file_context : REF SBBLOCK(); 
238 Initialize the descriptor for the resultant name string. 
740 CHSFILL( 0, DSCSC_S_BLN, resultant_name_desc ); 
re resultant_name_descl DSC$B_CLASS J~= DSCSK_CLASS_D; 
74 6 
744 6 : Fero the expanded name sting length, so that COPYSINOPN_ERR can determine 
re? ° ; f the expanded string was created by RMS or not. 
a9 e3 INF ILE_NAM_BLKCNAMS$B_ESL) = 0; 
748 0 


— 
om 
~o 


' Call LIBSFIND_FILE . ease Pe file. 7, qenetntng ya ~—— gyecens is 
' returned, then chec t is Lensth ng we care abo 

i more files doesn’ t yh Bn il any other error condition COPY should 

: issue @ message. 


if NOT ( status = LIBSFIND FILE _ desc fyouttane _name_desc, 
find_file_context, 0, 0, 0, Sref(2)) 
THEN " 
IF_ .status NEQ RMS$_NMF 
COPYSINOPN_ERR( .find_file_context ); 


SSESSSSASUN LS. 


©0000 0MWC We or et PERRO ND, 
LASLSSSVSEALAV= OOONAUNE WIN — 


3 3 

3; 17 

3; 17 

3 17 

3; 17 

3 17 

3; 17 

: 17 

3 17 

3 17 

3 17 

3; 17 

3; 17 

: 1706 RETURN ~Status; 

3 176 END; 

: 1588 

3 1708 ' Copy the information from the resultant name string descripitor into 

: 176 ' the FAB’s file name and the NAM block's resultant name descri tor fields. 
3; 1768 ' Rie. copy the file name status bits into the in ut file's block and 
3: 1769 ' copy the FID of the found file into the input file's name block. (COPY 
3: 1770 ' does an open by name block. This guarantees that the correct file is 

3 4a! opened.). Then return to the caller. 

; 1338 95 intite e=fabt,F eret = .resultant_name_desc( DSCSA_POINTER J; 

3: 1774 96 infil SB-FNS = .resultant_name_desc 445 oll g ee dhe 3 

3 1775 97 ntitee ~nam_b NAMSB_RSL J] = .resultant_name_desc{ DSCSW-LENGTH J; 

3 1776 go38 in_name_d an bth ) -infile_nam_blkC NAMSB_RSL J; 

3 44 44 34 CHSMOVET. infile_fablFAB$B _FNS), Mint ile. fabCFABSL_FNAJ, .in_name_desc({1]) 
3; 1779 2301 

: 1780 308 find file_nam = .find_file_fabC FABSL_NAM J; 

3 1781 Hf infile_nam_blk{ NAMSL_FNB J = .find_file_mam{ NAMSL_FNB J; 

; 1788 04 infile_nam_bLkl NAMSW_FID_NUM ] = .find_file_namL NAMSW_FID_NUM J; 

3; 178 305 infile_mam_blLkC NAMSW_FID_SEQ ) =. .find_file_nam{ NAM$W_FID_SEQ : 

: 1784 306 infile nam_blkC NAMSW_FID_RVN J] =_.find_file_naml NAMSW_FID_RVN 

3 178) 4 CHSMOVE( NAMSS_DVI, find_TFile_namCNAM$T_DVIJ> infile_nam_bLKCNAM NAMSi DVI] ); 
: 1787 09 RETURN ok; 

; 1788 10 

: 1789 11°=«71 END; 


~PSECT SOWNS,NOEXE ,2 


00000000 00000 FIND_FILE CONTEXT: 
-CONG 0 


FIND_FILE_FAB= FIND_FILE_CONTEXT 


-PSECT SCODES,NOWRT,2 
00FC 00000 ENTRY COPYSFIND_INPUT_FILE, Save R2,R3,R4,R5,R6,- 
CF 9E 00002 MOVAB FIND_FILE_CONTEXT, R7 


57 0000° 


10 
cOpYRAIN yb-Sep-1964 25:59:26 yanett BLias-32 v4.0-742 Page 


2214, 


} 


10 
COPYMAIN base -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 50. 
yo4~000 1228 08- 1382 93:72:98 COPY. SRC A ° ad 
56 00006 CF 9 7 MOV INFILE_NAM_BLK+3, R6 ; | 
E f § C SUBL2 #12, SP ; 
08 00 6 - 3 C f movcS #0, (SP), #0, #8, RESULTANT_NAME_DESC + 2262 
07 AE 05 0 00016 MOVB #2, RESULTANT_NAME_DESC+3 : 
08 ag 4 OOO1A CLRB ss INFILE_NAM_BLR+11 : 
6E 5 + 1 a #2, (SP) : 
E C 90 CLRQ.  =(SP) : 
3 D4 000 CLRL ={SP) : 
5? DD 00 6 PUSHL R ; 
18 AE OF 0 PUSHAB RESULTANT_NAME_DESC ; 
04 aC DD B PUSHL INFILE DESC : 
000000006 0 FB 000 E CALLS 4&7, LIBSFIND_FILE : 
5 D0 000 MOVL * STATUS : 
14 E8 000 BLBS § STATUS, 2$ : 
000182CA BF 3 Dt 005 cHPL STATUS, #99018 ; 2281 
67 DD 00044 PUSHL FIND_FILE_CONTEXT : 2283 
0000v CF 1 FB 0046 CALLS #1, COPYSINOPN_ERR : 
50 2 B0 0048 1$: MOVL STATUS, RO ; 2284 
00006 CF 08 AE 00 OO4F 2%: MOVL § RESULTANT_NAME_DESC+4, INFILE_FAB+44 + 2295 
00006 CF 04 AE 90 00055 MOVB § RESULTANTNAME-DESC, INFILE_FAB+52 : 
66 04 AE 90 00058 MOVB = RESULTANT NAME DESC. INF ILE~NAM_BLK+3 : 2297 
00006 CF 66 9A 0005F MOVZBL INFILE_NAM : K73, IN_NAME_DES : 2298 
50 00006 cr 9A 00064 MOVZBL INFILE~FABT52, RO + 2299 
poet 8 ph a7 SE HUEY Rane FUineTTLetFamieages SIMIMMEDESCOS E50 
50 8 AO dO 00074 MOVL £g(Ro} FIND_FILE_NAM : 
31 Ab 4 AO 00 00078 MOVL 3 (FIND_FILE“NAM)> INFILE_NAM_BLK+52 + 2303 
1 Ab 4 AO 00 0007D MOVL 6(FIND-FILE-NAM), INFILE-NAM~BLK*36 3 23 
5 A6 8 AQ } Oo8s MOVW 4O(FIND_FILE_NAM), INFILE NAM BLK+40 3 2306 
11 A6 14 AO 10 008 MOVC3) #16, ZOTFIND FILE NAM) , INFILE_NAM_BLK+20 =; 2307 
, "Soe 2 Beam" ae 


; Routine Size: 145 bytes, Routine Base: S$CODES + O6FF 


— — — 7 ~4 


10 
cOPYMAIN 1BaSen-1984 28:59:26 YAK BLiss-82 v4.0-74 al 


GLOBAL ROUTINE COPYSCALC_ALQ = ! Allocation quantity calculation routine 


144 
! FUNCTIONAL DESCRIPTION: 


This routine determines the output file allocation/extension quantity. 
FORMAL PARAMETERS: 
None 
IMPLICIT INPUTS: 
EXTEND_OUTFILE 
INF F 


oF e 

INF ILE_XABALL Input file allocation XAB 

INFILE XABFHC = snput file header characteristics XAB8 

COPYSCCI_STATUS bit TRUNCATE_BIT 

means /TRUNCATE was specified 

ALLOC_VALUE - contains a value if /ALLOCATION was specified. 

COPY_TRUN_QUAL = CLI data block for the truncate qualifier; the 
“explicit bit’ will be set if /NOTRUNCATE was 
specified on the input Line 


4 


Output file extension indicator 
Input fil 


S 


COODOOONN AAA 
GRaSSSLSERESS 
WAININIANINNINI AINA NINAINAINAINIW NIN AIAIANIANIAN 


sss 


tt ad ad ed ed ed 
NOUSWN—O0OW 


IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
Size of the input file (i.e., number of blocks) 
i SIDE EFFECTS: 
None 


Sth te Re te Red ee I ee 


BEGIN 
LOCAL 
AL 


Se eae 
=—OODOnNOulfwnr—o0w 


: ! Temporary allocation quantity 
t 
: Return a zero allocation size if the output file is not a disk and it is being extended. 


Reh ey stele} 


IF .EXTEND OUTFILE AND 
(NOT .OUTFILE FABCSFAB_D 
.OUTFILE_FABCSFAB_DEVTS 


RETURN 0; 


If the output file is botng extended 
and it is not a file structured device 
or it is a magnetic tape, 


return a zero allocation size to the caller. 


t 
! Determine the output file allocation size from the size and organization of the input file. 
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NOUS WO 0 
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IF NOT ,INFILE FABCSFAB DEV(FOD)] OR 
W-INFILE_FABCSPAB_DEV(S@D)4 


ALQ = DEFAULT_ALLOC i 
BEGIN 


PUPS 
NOUS Wr —OOo 


SeseseR ee socs 


bt 


SEER RSE: 
WONAUSWN OO 


4 geatEM® OUtt ILE 
ALQ = .OUTFILE XABFHCCXABSL_EBK] + .ALQ - 
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4 
407 
408 
409 
410 
“te 
“18 
ais 
“16 
“1? 
418 
419 
420 


00 


3 


Be 


If the o~ file is a non-contiguous sequential file and /NOTRUNCATE was not explicitly given 
the the rope file is being appened to an existing file, 
if /TRUNCATE and no /ALLOCATION was given 


the file should be truncated. Otherwise, use the allocation of the input file as the size of 
the output file. 


( 

( 

-INFILE_FABC FABSB_ORG J] EQL FABSC_SEQ 

( .TRUNCATE_NEGATED OR .NEG_TRUNCATE_QUAL ) 


AND 
: NOT .INFILE_XABALLC XABSV_CTG J OR .EXTEND_OUTFILE ) 


( (.TRUNCATE_QUAL OR .LOC_TRUNCATE_QUAL) AND 
IF INFILE_XABFHCCXABSW_FFB] EQL 0 
ne  INFILE_XABFHCCXABSL_EBK] - 1 

ALQ = .INFILE_XABFHCCXABSL_EBK) 


E 
ALQ = .INFILE_XABFHCCXABSL_HBK); 


~OUTF ICE_XABFHCCXABSL_HBK); 


IF .ALQ GEQ 0 : 


RETURN .ALQ ! 
RETURN 0; ! 


43:46: 


a 


AX-11 Bliss-32 v4.0-74 
48 eaten Bb lesatmaln: aoe Page 425 


If she input device is not file structured 
or if it is a magnetic tape, 


assume a default input file size. 


«CURR_ALLOCATION_VALUE EQL 0 ) 


calculate only enough space to hold the actual 
data in the input file. Note that this calculatio 
includes the final block only if it actually 
contains some data. 


Otherwise, pickup the actual size of the input fil 


! If the output file is being extended, 


' subtract the remaining output file space 
! from the calculated extension quantity. 


Return the calculated allocation (or extension) quantity to the caller. 


if the calculated allocation/extension quantity 
S$ greater than or equal to zero, 
return that value to the caller. 


| 
| 
| 
Otherwise, return a zero value to the caller. | 
| 
| 
| 


3; Routine Size: 129 bytes, Routine Base: S$CODES + 0790 


ca Her 


00006 at o3 
51 0000" CF ef if 34 
67 G CF E1 1 
1 6 os CF : EO 1 
6 000G CF g Ei 1D 18: 
04 000G CF E1 
0 D4 00029 2$: 
40 11 00028 
00006 cf 7 002d 3$: 
OE 0000" CF 06 €E j 
09 0000" CF 3 9 
00006 CF 3 
15 18 bebe 
12 51 €8 00044 
06 0000" CF 05 3! 0047 4$: 
0000" CF 0040 
16 18 00051 
0000G CF D5 00053 5$: 
He ig 0057 
04 A2 B85 00059 68: 
06 ig 005¢ 
50 62 01 ¢ 41543 
09 11 0006 
50 62 00 Bpbe7 7$: 
04 11 00067 
50 FC A2 00 00069 8$: 
oc 51 £9 0006D 9$ 
51 50 0000G CF Ci 00070 
50 51 0000G CF C3 00076 
02 18 0007C 10$: 
50 D4 QOO7E 11$: 
04 00080 12$: 


1984 23:39: AX=11 

1382 93:72:98 He Y.SRCJICOPYMAIN.B 
.ENTRY COPYSCALC_ALQ, Save R2 
MOVAB INFILE_XABEHCS1 » R2 
EXIZV He a COPYSSEM. STATUS#2, R1 
BBC 46, OUTFILE_FAB+65, 11$ 
BBS #5. OUTFILE-FAB+64, 118 
BBC #6, INFILE_FAB+65, 2$ 
BBC #5, INFILE-FAB+64, 3 
om A 
iste INF ILE_FAB+29 
BBS #6, COPYSCLI_STATUS+5, 4$ 
BLBS §§ COPYSCLI_STATUS+6, 4$ 
TSTB INF ILE_XABALL +8 
Boa. os 
BBS a5. COP YSCLI STATUS+S, 5$ 
ise oPy CLI_STATUS+5 
st CURR_ALLOCATION_VALUE 
Ist INF ILE_XABFHC+20 
SUBL #1, INFILE_XABFHC+16, ALQ 
MOVL INFILE_XABFHC+16, ALQ 
MOVL INFILE XABFHC+12, ALQ 
ADDL OUTFILE_XABFHC+16, ALQ, R1 
SUBL3 OUTFILE-XABFHC+12. R1, ALQ 
BGEQ 12$ 
CLRL = RO 
RET 


Bliss-32 V4.0- 
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97 138% ; 39:26 AX-11 Bliss-32 V4.0- 


74 Page 
p-1 COPY. SRCJICOPYMAIN.B32; . «3 


we 


| 
; 1901 421 1 ROUTINE REPORT_NAMES ! Report the results of a file co 
i 1908 43 I “": NOVALUE = ; 7 | 
’ 1 4 1 
3 1 426 1 S44 
; 1908 ? 5 : : FUNCTIONAL DESCRIPTION: 
; 190 & S 1! This routine reports the results of copying a single input rile | 
; 1908 428 1! to the output file. | 
; 1909 429 1! 
: 1910 430 1 ! FORMAL PARAMETERS: | 
: 1812 a3 | i No | 
3 : ne 
; 1913 4 5 1! 
3 1914 434 1 ! IMPLICIT INPUTS: 
3; 1915 435 1! 
3; 1916 436 1! LOG = Indicator tested to see if activity reporting desired 
3; 1917 437 1! EXTEND OUTFILE = Indicator tested to see if input concatenation is active. 
; 1918 438 1! IN.NAME DESC = Input file name descriptor 
3; 1919 439 1! out E_DESC = Output file name descriptor 
3; 1920 440 1! BLOCK _COONT = Number of input file blocks copied 
3 1921 441 1! RECORD_COUNT = Number of input file records copied 
; 13 ¢ rt : } INFILE_FAB = Address of input file FAB 
: 1934 444 1 ¢ IMPLICIT OUTPUTS: | 
3 1925 445 1! 
3 1926 446 1! None 
3; 1927 447 1! | 
3; 1928 448 1 ! ROUTINE VALUE: | 
3 13¢2 449 1! 
3; 19350 450 1! None 
3 1931 451 1! 
; 1336 $26 1 ! SIDE EFFECTS: 
3 193 4535 1! 
3 1934 454 1! None | 
3; 1935 455 1! 
3 1936 456 1 !-- 
3; 1937 457 1 
3; 1938 458 BEGIN 
3 1939 459 
3 1940 460 LOCAL 
3 1941 461 ptr, ! Temporary variables for character searching 
: od 46 address, 
3; 194 46 size; | 
3 1944 464 
3 1945 465 ‘ 
3 1946 £96 ! Determine which message, if any, is needed. 
3 1947 46 : 
3 1948 468 é , 
3 Ha} rs +4 IF NOT .LOG_MSG_QUAL If activity reporting is not requested, 
3 1951 471 RETURN; ! return to the caller. 
3 1326 47 
3; 195 47 : 
3 1954 474 ! If this is a record oriented device (not network), the messages should 
3; 1955 475 ' include only the device name. 
3 1956 47 ! 
3; 1957 47 


E ! Otherwise 
IF (.RECORD_COUNT NEQ 0) OR NOT (LIBSCHECK_DIR (INF ILE_FAB)) ! If the input file is not 0 record 
: is not a directory file 


11 
COPYMAIN 18-5 -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 55) 
V v000 127808- 1382 93:32:48 COPY SRCIEOPYAAIN 3504 ’ 3) 
1958 BS Dw weet fun tren series | 
-infile fa rec 
1960 480 AND NOT .infile_fab CS$FAB_DEV(net) J | 
1961 481 HEN 
1306 4 § BEGIN 
196 4 size = .in_name_desc(0]; 
1964 484 address = ;in_name_desc(1]; 
1966 186 Fe me tT Ts thee thi he devi i | 
-ptr ! ere is an ng past the device, remove it 
1967 487 THEN peck» | 
1208 488 in.name_desc(0] = .ptr = .address + 1; 
196 489 END; | 
1970 490 | 
1971 491 
1976 138 IF NOT .EXTEND_OUTFILE ! Test the record mode indicator to see 
197 49 ! if this is the primary input file or a 
13 t3e ! concatenated input file. | 
1976 496 ! Create a ‘‘copied’’ message if the input file just copied was 
1977 2497 ! the first file copied Tite the eutput file. 4 | 
1978 2498 : 
1979 
1980 THEN ’ 
1S) i gee ere, Cou NEQ 0 If the input file was copied in block mode, 
1983 P PUT_MESSAGE( MSG$_COPIEDB, ! signal “file copied’’ with the following arguments: | 
1984 P " } Number of = 2 arguments | 
1985 P IN_NAME_DESC, } Address of input file name descriptor 
1986 P OUT_NAME_DESC, ; Address of output file name descriptor | 
be 24 : -BLOCK_COUNT ) ! Number of blocks copied 
1989 0 ELS 
1990 
199 
199 
199 
199 
199 
1 
1 
1 
1 
2 


Dye lal ah ah ah ah ab eah sb sb eabeal al eal abeal eal eal eal oe 
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2499 
2500 
2501 
2 oe 
250 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
1 2511 
4 2 \¢ THEN 
P 251 PUT_MESSAGE( MSG$_COPIEDR, ! signal “file copied’’ with the following arguments: 
4 P 2514 ‘ } Number of agenege arguments 
5 P 2515 IN_NAME_DESC } Address of input file name descriptor 
996 P 2516 OUT_NAME DESC, ' Address of output file name descriptor 
044 $ + -RETORD_COUNT ) ! Number of records copied 
999 2519 ELSE ! Otherwise, its a directory file | 
000 P 2520 PUT_MESSAGE( MSG$_CREATED, ! signal “‘created’’ with the following arguments: 
001 P 2521 ‘ : mypber of message acpunents 
Oo8 2 § ; OUT_NAME_DESC ) : address of output file descriptor 
0u4 524 ' Create an ‘‘appended" message if the input file just copied was 
Oba : 5 appended to an existing output file. 
007 5 ; 
008 528 ELSE ' 
tts 2 ; IF .BLOCK_COUNT NEQ 0 ! If the input file was copied in block mode, 
011 Pp 23) PUT_MESSAGE( MSG$_APPENDEDB, ! signal “file appended’ with the following argument | 
Org P 25 § P } Number of message arguments 
01 P 237 IN_NAME _DESC : Address of input file name descriptor 
014 P 25 OUT_NAME_DESC, : Address of output file name descriptor 


11 
COPYMAIN 1$-se -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 56 
$04 000 12-80 984 ; $39: 48 YCOPY .SRCICOPYMAIN. B32; . 18 | 
: FF 2 5 -BLOCK_COUNT ) ! Number of blocks copied 
; O19 3 5 ELSE ' Otherwise | 
: 2018 P 2538 PUT_MESSAGE( MSG$_APPENDEDR, i signal "file appended’ with the following argument 
; 2019 P 2 9 ‘ } Number of message arguments 
3; 2020 P 2540 IN_NAME_DESC ! Address of input file name descriptor 
: 2021 P 2541 OUT_NAME best, ! Address of output file name descriptor 
; : ; 206 -RETORD_COUNT ); ! Number of records copied 
; 034 544 ! 
; 2025 545 ' Return to the caller. 
3 bs6 248 ! 
; $56 228 RETURN IR he call | 
3 3 ! Return to the caller. 
: 2029 $49 . 
3; 20350 2550 1 END; 
007C 00000 REPORT_NAMES: 
~ WORD Save R2,R3,R4,R5,R6 3; 2421 
56 000000006 00 9€ 00002 MOVAB LIBSSIGNAL, R6 : | 
55 00006 CF 9E 00009 MOVAB OUT_NAME DESC, R5 ; | 
54 0000° CF 9E Bp 005 MOVAB RECORD_COUNT, R4 F 
53 00006 CF 9€ 0001 MOVAB IN_NAME DESC. R3 ; | 
01 14 A4 01 4 gents ees #1, COPYSCLI_STATUS, 1$ 3 2469 | 
e | 
20 0000G CF €E9 4a 1$ BLBC INFILE_FAB+64, 3$ 3 2479) 
1A 00006 CF 05 £0 0002 BBS #5, INFILE FAB+65, 3$ + 2480 
50 63 00 00029 MOVL IN_NAME_DESC, S : 2483 
52 04 A3 pb» 0002C MOVL IN_NAME_DESC+4, ADDRESS > 2484 
62 50 3A 3A 00050 LOCC #58, SIZE, (ADDRESS) 3: 2485 
o¢ 12 000 BNEQ 2s 3 
1 p04 000 CLRL R1 3 
51 05 00038 2$ TSTL PTR 3 2486 
07 3 i A BEQL 3$ : 
51 $2 C¢ 003C SUBL2 ADDRESS, R1 3; 2488 | 
63 01 Al SE 0003F MOVAB 1(R1), IN NAME DESC ; 
50 FC AS o? 4k 3$ MOVL BLOCK_COUNT, RO 3; 2501 
32 AS 95 0004 TSTB COPYSSER_STATUS#2 3: 2492 
44 19 0004A BLSS $ : 
0 Be poo TSTL RO ; 2501 
D 4 BEQL 4 3 
0 ODD Bpe PUSHL RO : 2507. 
; BB 4 PUSHR #*M<R3,R5> 3 
D 00054 PUSHL - 
7E 1061 F C 00056 MOVZWL #4193, -(SP) 3 
4F 1 28 BRB 3 
gs 3 D 4$ TSTL RECORD_COUNT ; 2510. 
E OSF BNEQ F 
0000G CF 9F 61 PUSHAB’ INFILE FAB F 
000000006 90 1 FB 65 CALLS #1, LIBSCHECK_DIR 3 
D 0€ 6C BLBS RO 3 
64 DD oF 5$: RECORD _COUNT ; 
8 6B 1 #*M<R3>R5> : 


11 
COPYMAIN 1bege -1984 239: AX-11 Bliss-32 V4.0-74 Page 57 
y04~000 12-808-1 382 93:32:98 ANey SHLICRPYAAYN O3001 . aay 
3 pp 0007 PUSHL 4&3 ; 
7E 1069 BF te OF MOV ZUL #4201, (SP) : | 
g DD ih 6$ PUSHL > 2522) 
i po 7 PUSHL #1 : 
7E 1073 BF 3 MOVZWL #4211, <(SP) : | 
0000v CF 1 FB CALLS #1, COPYSMSG_NUMBER : | 
g DD 0 A PUSHL R : 
66 03 FB C CALLS #3, LIBSSIGNAL : 
04 0008F RET + 2501 
50 D3 090 7$ TSTL RO + 2529 
Q 1 9 BEQ 8$ : 
Dd 0009 PUSHL RO + 2535 
BB 00 36 PUSHR #*M<R3,R5> : 
bd 009 PUSHL : 
7E 1001 F 3¢ 9009A MOVZWL #4097, =(SP) : 
0B 11 0009F BRB $ : 
64 DD OOOA1 8$ PUSHL RECORD_COUNT + 2542 
28 BB OOOA3 PUSHR #*M<R37R5> : 
03 bp 00045 PUSHL # : 
7E 1009 BF 3C O00A7 MOVZWL #4105, =(SP) : 
0000v CF 01 FB OOOAC 9$: CALLS #1, COPYSMSG_NUMBER : 
50 0D 00081 PUSHL ; 
56 05 FB 00083 CALLS #5, LIBSSIGNAL F 
04 00086 RET + 2550 
; Routine Size: 183 bytes, Routine Base: S$CODE$ + 0811 


1 
| 


11 

COPYMAIN 1-se -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 58 
vos 122808- 1984 13:40:48 {COPY sRCICOPYMAIN. B32; . (16) | 
3 ROUTINE REPORT_BYPASS ( ! Report the bypassing of an input file 
NUMBER ) ! Error number 


: NOVALUE = 
144 


FUNCTIONAL DESCRIPTION: 
This routine reports the name of an input file which has been bypassed. 
FORMAL PARAMETERS: | 
; NUMBER. rlu.v = Error number | 
! IMPLICIT INPUTS: | 
i INFILE_NAM_BLK = Input file name block | 
: INFILE-NAME = Input file resultant name | 
INFILE_XNAME = Input file expanded name 
IMPLICIT OUTPUTS: | 
; None 
i 
; 
i i 
1 ' 
i | 
i | 
1 | 
i 
: | 
| 
| 
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ROUTINE VALUE: 
None 
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SIDE EFFECTS: 


foal *ah al ah ah sh sh sb Ab Ab Ab Ad Ab Abb hb db Abb Ab Ab Ab db dh db dh db Ab dh sb esb sb val val eal salah alesis valeal wal ealealeal wales eww) 
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SOOO OOOO ODO OOO O09 00 69 09 09 09 09 09 09 09 SIS I NN NNIPAAAAAAAAOMIMIVIVIUIMIUIUTIVT 


PORSPOPONO WII LI WIR IPOPOPUDINIPUNINIDS 2 2 2 2 
° ° 


RIPIPIPIPDPNIPDPONININPDPINYAIPPDNININYNINININIPYINININYIPININONINIPININIPIPIPIPIPIPINPIPIPIPIPIPUPIPINPIPIPUPIPUNINY 


$06 
soe None 
06 
06 . 
064 
065 BEGIN 
066 
2067 LOCAL 
$pe8 NAME_DESC : VECTORC2]; ! Input file name descriptor 
070 ! 
Ore Setup the input file name descriptor. 
07 
she 10g TF ELE WAR ALK CMANSD_RSL) NEQ 0 If RMS has setup a resultant name string, 
076 BEGIN ! 
077 NAME _ eschod = .INFILE_NAM_BLKCNAM$B_RSL); ' setup the name descriptor to use | 
are BAN DESC 1) = INFILE_RAME; ! the resultant name string. | 
080 ELSE 
081 BEGIN ' . | 
08 1 E_D stb = .INFILE_ NAM BLKCNAM$B_ESL); ' Otherwise, use the expanded name string. 
08 ; NAME-DESCC1) = INFILE_RNAME; : 
084 6 END; 
BRE 
0. 6 ! Report the name of the input file which is being bypassed. 
088 60 : 
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R 306 é ot (16) 


COPY.SRCJCOPYMAIN.B3 


} 
} 
} 
j 


3; Routine Size: 


Routine Base: 


SCODES + 08C8 


: 6 
$ 344 5 PUT_MESSAGEX( .NUMBER, 1, NAME_DESC ); ! Report the name of the input file. 
; 1 ' 
3 836 61 ! Return to the caller. 
3 2094 61 ! 
5 33? 614 
$ +4. 615 RETURN; ! Return to the caller. 
: 209 618 
; 2098 617 1 END: 
0004 00000 REPORT_BYPASS: 
WORD Save R2 3; 2551 
52 0000v cf 9 9000 HOVAB COPYSMSG_NUMBER, R2 : 
50 00006 CF o; at MOV ZBL INFILE_NAM_BLK+3, RO + 2593 
6E 98 DO 00011 MOVL RO, NAME_DESC : 2596 
04 AE 00006 CF 9E 00014 MOVAB INFILE_NAME, NAME_DESC+4 : 2597 
0B 11 OOO1A BRB $ : 2593 
bE 0000G CF 9A 9001¢ 1$: MOVZBL INFILE_NAM_BLK+11, NAME_DESC 3 2601 
04 AE 00006 CF 9€ 00021 MOVAB INFILE-XNAME, NAME_DESC?4 + 2602 
06 AC OD 900 7 2%: PUSHL NUMBER : 2609 
62 01 FB 0002A CALLS #1, COPYSMSG_NUMBER : 
7E 00 50 01 7A 999 D EMUL Ssa#1, R » =(SP : 
50 BE 08 7B 000 : EDIV #8. (SP)+, RO, RO : 
04 0 01 0003 CMPL = RO, #4 : 
14 13 QOO3A BEQL 6-38 : 
5E DD 0003C¢ PUSHL SP : 
01 DD O003E PUSHL #1 : 
04 AC DD 9049 PUSHL NUMBER : 
62 01 FB 0004 CALLS #1, COPYSMSG_NUMBER : 
50 DD 00046 PUSHL : 
000000006 00 03 FB 0048 CALLS #3, LIBSSIGNAL 3 
SE DD 09030 3$: PUSHL SP : 
01 DD 6 05 PUSHL #1 : 
04 AC OD 00054 PUSHL NUMBER ; 
62 gi FB 00057 CALLS #1, COPYSMSG_NUMBER : 
9 DD O03A PUSHL ; 
000000006 00 03 FB 00 3 CALLS #3, LIBSSTOP : 
04 0006 ET 3 


1 | 
COPYMAIN 18-30 -1984 23:39: AX-11 Bliss-32 Vv4.0-74 Page 
vO4~000 a-Rep-1986 2:10:18 — ECOpyssREICOPYAAIN= B32: | atte 
GLOBAL ROUTINE COPYSLOG_MSG ( ' Signal a COPY message 
NUMBER J ! Error number 
: NOVALUE = 


tee 


FUNCTIONAL DESCRIPTION: 


zZ 
> 


This routine sends an informational message to the user if 
activity reporting has been requested. 


FORMAL PARAMETERS: 
NUMBER. rlu.v = error number 
IMPLICIT INPUTS: 
LOG_MSG = Activity reporting indicator 


0 
OUTFILE_COUNT = Number of output files created 
OUT_NAME_DESC = Output file name descriptor 


FWWIAWIAWAAINIPononopononoponnun 
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Sao 
= 
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IMPLICIT OUTPUTS: 
None 
r ROUTINE VALUE: 
ri None 
4g SIDE EFFECTS: | 
None 
649 
650 - 
651 | 
$36 BEGIN 
wae | 
636 Return to the caller if activity reporting has not been requested. 
65 
O28 i NOT .LOG_MSG_QUAL If activity reporting is not requested, 
660 RETURN; i return to the caller. 
oss Call FAO to format the error message in the message buffer. 
é 


53 


SELECTONE .NUMBER OF ' Select error message processing based 
SET ! on the actual error number. 


| 
| 
| 
CMSG$_NEWFILES): | 


LS-S-5- 
OOo 


fF jOUTFILE COUNT GEQU 2 ' If at least 2 files was created, 


me ek kk ek a ek aa ak a a a ak a ad at ot St tt Sh I I SS St SY Sh SI SS SS SS SS SY SY SS 
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' 
671 : 
P O76 PUT_MESSAGE( MSGS$_NEWFILES, ' signal ‘<number> files created’’ with the following 
P 267 : number of nossage arguments 
674 OUTFILE_COUNT ); : number of output files created 


11 
COPYRAIN 1BrSep-1984 28:59:26 YAK BL ias-52 v4.0-74 Page 6 


] 
1 
)| 
3; 2157 673 | 
3; 2158 6 CMSG$_REPLACED, MSG$_OVERLAY, MSG$_CREATED): 
3 2159 P 267 POT_MESSAGEX( .NOMBER, ! signal the message with the following arguments: | 
3 2160 Pp ore P ! number of message arguments 
; 191 244 OUT_NAME_DESC ); : address of the output name descriptor | 
; 188 81 COTHERWISE): 
: 1e8 ¢ OT sean »NUMBER ); ! Signal the appropriate message. 
: 316s oS | 
183 6 Return to the caller. | 
1% ess RETURN; ! Return to the caller. 
3; 217 691 1 END; 


: 


003¢ 00000 -ENTRY COPYSLOG_MSG, Save R2,R3,R4,R5 : 2618 
55 000000006 00 9€E 00002 OVAB LIBSSTOP; ae : 
54 000000006 00 9E 00009 MOVAB LIBS$SI : ; 
53 0000V CF 43 0019 MOVAB COPYSMSG NUMBER, R3 : 
01 0000" CF 01 : 0001 BBS #1, COPYSCLI_STATUS, 1$ : 2658 
4 00018 RET : 
52 04 AC DO O00IC 1$ MOVL § NUMBER, R2 : 
00001091 =F 3¢ D1 00020 CMPL = R2, #4041 3 2669 
15 12 90 7 BNEG 3$ : 
02 0000" CF 01 00029 CMPL OUTFILE_COUNT, #2 : 2670 
01 1€ 000 F BGEGU 2$ : 
04 000 RET 3 
0000" CF OD 00031 2$ PUSHL OUTFILE_COUNT + 2674 
01 BD 00 3 PUSHL #1 ; 
7E 1091 8F 3C¢ 000 MOVZWL #4241, -(SP) ; 
7 11 0003¢ BRB 5$ ; 
00001073 &F D1 OO03E 3$ CMPL Re. #4211 : 2676 
12 13 0004 BEQL = 4 : 
000010AB =s BF 52 D1 0004 CMPL Re. #4267 ; 
13 0004 BEQL «= 4 : 
00001088 =«&F 2 p} cHPL R2, #4283 : 
2 DD 9 4$ PUSHL R : 2679 | 
$3 FB a CALLS #1, COPYSMSG_NUMBER ; 
7E 99 0 1 7A EMUL #1, RO, #0, =(SP) F | 
50 0 gE & EDIV #8. (SP)+, RO, RO : | 
4 : CMPL «sO, #4 3 
1 68 BEQL 6 ; 
00006 CF 9F $0 PUSHAB OUT NAME _DESC ; 
1 DD PUSHL # ; 
2 oD 7 PUSHL a 3 
. 63 1 FB 00075 5$ CALLS #1, COPYSMSG_NUMBER ; 
g DD 0007 PUSHL RO : 
64 FB OOO7A CALLS #3, LIBSSIGNAL : 
04 0007D RET ; 


vb N 


wo 
oo 


65 


3; Routine Size: 185 bytes, Routine Base: 


00006 


: 
‘ 
01 
52 
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j 11 
15-Sep-1 
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6$: 
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PUSHAB 
PUSHL 


AX-11 Bliss-32 
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COPYSMSG_NUMBER 
LIBS$STOP 
COPYSMSG_NUMBER 
RO, #0, =(SP) 
($P)+, RO, RO 
yA 
COPYSMSG_NUMBER 
LIBSSIGNAL 


COPYSMSG_NUMBER 
LIBSSTOP 


i] 


roe 


2691 
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1be5e -1 239: AX-11 Bliss-32 Vv4.0-74 
12-88-1382 93:72:48 NPY SREIEDPYAAYN O3e, 
GLOBAL ROUTINE COPYSINOPN_ERR ( ! RMS input open error acti ti 
FA AS ORES ) ! Address of Sosec tated FAB or RAB ee 


i FUNCTIONAL DESCRIPTION: 
This RMS error action routine sends an input open error message to the user. 
FORMAL PARAMETERS: 
FAB_RAB_ADDRESS.ra.v - Address of the associated FAB or RAB 
IMPLICIT INPUTS: 
Input file name block 
Input file name after open 
Input file name before open 
Input file cli descriptor 
IMPLICIT OUTPUTS: 
None 
ROUTINE VALUE: 
None 
i SIDE EFFECTS: 
None 


BEGIN 


BIND 
FAB_RAB = .FAB_RAB_ADDRESS : BLOCKC,BYTE); ! Redefine routine parameter. 


LOCAL 
MESSAGE _ID ' Local message identifier 
NAM_BLK™: REF SBBLOCK(, i Pointer to block — 

NAME_DESC : VECTOR(2); ! Input file name descriptor 


‘ 
Fillin the file name descriptor with the most complete name possible. 


NAM_BLK = .FAB_RABLFABSL_NAM); 


10: HAM _BLKCMANSB ASL NEQ 0 If a resultant name string exists, 


BEGIN 
MESSAGE_ID = MSG$_OPENIN; 

NAME DESCEO] = .NAM_BLKCHANSB_ RSL; 
NAME-DESCEI] = -NAMZBLKENAMSL RSA]; 


indicate an open error 
and fillin the resultant name length 
and address. 


Bh 
vo.~000" EcHeochOMe ESHRSGR WABad RE tse Ol ‘Sete 


74 ELSE 
: 7 ; IF _ .NAM_BLKCNAMS$B_ESLJ NEQ 0 1 If RMS created an expanded string 
¢ f 1 THEN but coundn't open the file, 
7 g RESSAGE = MSGS OPENIN; i indicate an open error 
754 £b0) 5 «NAM_BLK NAMSB ESL); i and fillin the expanded name Length 
f 5 NAR PES = .NAM_BLKLNAMSL_ESA i and address. 
re f 3 ELSE 
4 7 § RESSAGE d = MSGS OPENINX; ! Otherwise, indicate a fatal coon error 
4 760 cho} = -IRFILE CLL _DEScEDscsy LENGTH]: ! and use the file name Length 
te ree Nae pest = . INFILE_CLI_DESCLDSCSA “POINTERI; i and length passed by the CLI. 
4 76 ! 
éf ree If mag tape and operator aborted the mount, make it fatal 
49 76 IF .FAB er ee DEV(sdi)J 
50 76 AND™. AB_RABEFABSL_ STV] EQL SS$_ABORT 
51 768 THEN 
> 26 769 MESSAGE_ID = MSG$_OPENINX; 
5 770 
54 771 ! 
55 77 ! Signal the error condition. 
$e 
58 P 2775 PUT_MESSAGEX( .MESSAGE_ID, ! Signal “input open error’’ with the following argum 
59 P 277 i ber of message arguments 
60 P 277 NAME _D i Address of input name descriptor 
61 P 2778 FAB “RABE FAB L_STS), ! Primary RMS completion code 
og 44S -FAB_RAB FABSt STV) ); ! Secondary RMS completion code 
64 781 ! 
65 at ' Return to the caller. 
66 7 ! 
67 784 
68 785 RETURN; ! Return to the caller. 
69 786 
70 787 «#1 END; 


001¢ 00000 ENTRY COPYSINOPN ERR Saye R2,R3,R4 : 2692 
54 0000v cE 9 000¢ HOVAB copys SHSG_ NOMBER, ; 
08 C 99 SUBL : 
3 4 ac D OA MOVL rab RAB _ADDRESS, R2 + 2729 
8 A 0 MOVL 40(Re) > 276 
A TST8 x NAM_6LK) ~ 3 276 
53 109A 8F 3C 0001 MOVZWL #4250, alte SSAGE 1D + 2745 
6E 3 Aad 9A 0001 MOVZBL 3(NAM-BLK), NARE _DESC > 276 
04 AE 4 A 00 ROVL (NAM~BLK), NAME-DESC+4 : 4 
0B OA 3 6 1$: TSTB (NAM_BLK) : 275 
1 1 A BEQL 2s 3 


1 
COPYMAIN 1$-2) -1984 23:39: AX-11 Bliss-32 V4.0-74 Pa 5 
yo4~000 12-808-198e 93:92:48 ANpy SREICOPYRAN O32, ge 483 
53 109A BF 3¢ MOVZWL #4250, MESSAGE_ID : 2753 
bE 08 AO 9A MOVZBL 11(NAM_BLK), NAME_DESC : 2754 
04 AE C A 0 3 MOVL j (NAMIBLK), NAME-DESC+4 ; 135 
53 109¢ «BF O3C ¢ 2$ MOVZWL #4252, MESSAGE_ID ; F230 
6E 000 6 CF 4 MOVZWL INFILE_CLI_DESC, NAME_DESC + 2760 
04 5 G cr d 46 MOVL  INFILE cLI-E C44, NAME_DESC+4 + 2761 
0B 40 A 4 € 4C 3$: C #4, 64TRO), & : 766 
2¢ 0c Ag D1 091 CMPL late », #4 + 276 
\2 0 3 NEG 4 ; 
53 109¢ «BF -3C (0005 MOVZ2WL #4252, MESSAGE_ID + 2769 
3 DD O99¢ 4$ PUSHL MESSAGE ID + 2779 
4 1 £8 ‘ CALLS #1, COPYSMSG_NUMBER : 
7E 90 0 1 7A 0006 EMUL #1, RO, #0, =(SP) ; 
50 0 BE 8 7B 00066 EDIV #8. (SP)+, RO, RO : 
04 30 D1 0068 CMPL = RO. ; 
18 13 6 BEQL «=s«OSS$ : 
7E 08 A2 7D 000 MOVG &(R2), =(SP) : 
08 AE 9F 00074 PUSHAB NAME_DESC : 
01 DD 00077 PUSHL #1 : 
3 DD 00079 PUSHL  MESSAGE_ID ; 
64 1 FB 0078 CALLS #1, COPYSMSG_NUMBER : 
9 DD ove PUSHL : 
000000006 00 FB 0008 CALLS #5, LIBSSIGNAL : 
04 0087 RET ; 
7E 08 A2 7D 00088 S$: MOVa = 8(R2), =(SP) : 
08 AE 9F 0008C PUSHAB NAME_DESC : 
9 DD O0008F PUSHL % 3 
3 DD 00091 PUSHL MESSAGE_ID ; 
64 01 FB 00093 CALLS #1, COPYSMSG_NUMBER ; 
50 DD 00096 PUSHL : 
000000006 00 05 FB 00098 CALLS #5, LIBSSTOP : 
04 0009F RET : 2787 


3; Routine Size: 160 bytes, Routine Base: S$CODES + 09E5 


; 
j 
<< ere LTC CC CC CC LL LL LL LLL LL LD 
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1E-Sep-19R 25:39:26 Ane BL fas-$2 v4.0-74 


0000 00000 IN_READ_ERROR: 
eWORD Save nothin 
7E 0000G CF 7D 00002 mova INFILE_RAB+S, =(SP) 


3 188 ! ROUTINE IN_READ_ERROR : NOVALUE = ! RMS input read error action routine 
: 790 1 !44 

; ia : FUNCTIONAL DESCRIPTION: 

: 738 } This RMS error action routine sends an input read error message to the user. 

; 295 FORMAL PARAMETERS: 

; 138 1 None 

3 798 1 

FH 64 : IMPLICIT INPUTS: 

; 801 1! INFILE_RAB = Input file RAB 

5 Hi : IN_NAME_DESC = Input file name descriptor 

; 804 1 | IMPLICIT OUTPUTS: 

5 805 1: 

8 4 : None 

; Boe t ROUTINE VALUE: 

: ct | ete 

; 812 1 | SIDE EFFECTS: 

3 813 1! 

3 B14 1! None 

3 815 1: 

; ae yf 

: 818 BEGIN 

7 BS 

; 306 a Signal the input read error. 

3 2307 8 

3 2308 P 8 4 PUT_MESSAGE( MSGS_READERR, ! Signal a “‘read error’’ with he following arguments 
3 2309 P 2825 1, ! Number of aqesoge argument 

3 2310 P 28 $ IN NAME _D ! Address of input file name  Gscertoter 
> 2311 P 28 IRFILE FS TRABSL _STS], i Primary RMS completion code 

3 \ 828 INFILES “Ras RABSL~ STvJ ); ! Secondary RMS completion code 
: S312 eae 

: 15 $3 i Return to the caller. 

: $819 a3 5 

; 319 534 RETURN; ' Return to the caller. 

> 2320 He 1 END; 


3; Routine Size: 


33 bytes, 


7E 
0000v CF 
000000006 00 


Routine Base: 


SCODES + OA85S 


ECREDcIOES GESRUEGE WMT REsn dR azt 


PUSHAB IN_NAME_DESC 

PUSHL #1- 

MOVZWL #4274 

CALLS COPYSASG. NUMBER 
PUSHL 

CALLS . LIBSSIGNAL 

RET 


2836 
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ROUTINE IN_CLOSE_ERROR ( 
FAB_RAB_ADDRESS ) 
: NOVALOE = 


'4¢ 


FUNCTIONAL DESCRIPTION: 
FORMAL PARAMETERS: 


; 
! 

; 
; 
i 
i 
i IMPLICIT INPUTS: 
IN_NAME_DESC = Input file name descriptor 
! IMPLICIT OUTPUTS: 

; None 

; ROUTINE VALUE: 

None 

SIDE EFFECTS: 

None 

& 


BEGIN 


BIND 
FAB_RAB = .FAB_RAB_ADDRESS : BLOCKC,BYTE); 


{ 
Signal an input close error. 


PUT_MESSAGE( MSG$_CLOSEIN, 
IN_NAME_DESC 
.FAB_RAB FABSL StS), 
.FAB-RABLFABSL~STV] ); 

' 

Return to the caller. 


RETURN; 
END; 


12 
1B-Se0-1986 25:39:26 


yay. Bliss-32 V4.0-742 
COPY.SRCICOPYMAIN.B32; 1 


' RMS input close error action routine 
! Address of associated FAB or RAB 


Red 


This RMS error action routine sends an input close error message to the user. 


FAB_RAB_ADDRESS.ra.v = Address of the associated FAB or RAB 


efine routine parameter. 


Page 68 


Signal a “close error’’ with the following argument 


Ret 


Number of mr arguments 

Address of input file name descriptor 
Primary RMS completion code 

Secondary RMS completion code 


urn to the caller. 


12 
cOPYRAIN yS-bep-t9g4 25:49:26 yaK=11 Blise=32 40-742 


0000 00000 IN_CLOSE_ERROR: 
» WORD 


Save RS ADDR 
50 4 ac 00 002 MOVL §§ FAB_RAB_ADDRESS, RO 
E : AO 7D ope MOVG (RO), =(SP) 
00006 CF 9F OOO0A PUSHAB IN_NAME_DESC 
1 pp 00 PUSHL #1 
7E 1052. 8F 3 0001 #4178, =(SP) 
0000v CF 1 FB 0001 #1, COPYSMSG_NUMBER 
0 DD 01 RO 
000000006 00 05 FB 0001 #5, LIBSSIGNAL 
04 0002 


; Routine Size: 36 bytes, Routine Base: $CODE$ + OAA6 


12 
COPYMAIN 18.56 -1984 23:39: AX-11 Bliss-32 V4.0-74 Page 70. 
y04~000 1228 08= 1982 93:72:98 Yonoy SREIEOPTAAIN: B5ec7 ° (21) | 
: 237 890 1 GLOBAL ROUTINE COPYSOUTOPN ERR ( ! RMS output open error action routine. 
3: 237 91 1 FAB_RAB_ADBRESS ) ! Address of associated FAB or RAB 
3 re £36 ! : NOVALOE = 
; 2380 89% | tee 
3 + 344 1 FUNCTIONAL DESCRIPTION: 
: Bs BY ; ; This RMS error action routine sends an output open error message to the user. 
; 85 899 | FORMAL PARAMETERS: 
; iH 30) ! ! FAB_RAB_ADDRESS.ra.v = Address of the associated FAB or RAB | 
3 2389 90§ 1 i IMPLICIT INPUTS: 
3; 2390 904 1! 
; 2391 905 1! OUTFILE_NAM_BLK = Output file name block 
: 239 906 1! OUTFILE-NAME = Output file name after open 
3; 239 907 1! OUTFILE_XNAME = Output file name before open 
3 $ge $308 : OUTFILE_DESC = Output file request descriptor 
; 3396 2910 1! IMPLICIT OUTPUTS: 
: 2397 2911 1! 
|e say Bt es oe 
> 2400 914 1 ' ROUTINE VALUE: 
3 2401 Saiz 1! 
$208 sop i — | 
; 404 2918 ' SIDE EFFECTS: 
3 2406 3320 1} None | 
> 2407 921 1: 
3; 2408 $358 1 !-- 
: 2409 923 1 
3; 2410 2924 § BEGIN 
: Sti) $358 BIND 
; oa18 $959 : FAB_RAB = .FAB_RAB_ADDRESS : BLOCKC,BYTE); ! Redefine routine parameter. 
ne rer 
> 2416 2930 MESSAGE_ID, ! Local message identifier 
: eeht 333 NAME_DESC : VECTORC2); ! Output file name descriptor 
: 2419 9 ! 
: : 334 : Fillin the file name descriptor with the most complete name possible. 
I 26 93 ; 
; ie 337 iF, OUTE BLE _MAR_OLECHANSS RSL} NEQ 0 If a resultant name string exists, 
> 2625 93 BEGIN .< 
3: 2426 940 MESSAGE_ID = MSG$_OPENOUT; ! indicate an open error 
: 2427 941 Nae DESCCO) = .OOTFILE NAM_BLKCNAMSB_RSL); ! and fillin the resultant name length 
3: 2428 94 NAME-DESCC1) = OUTFILE_RAME; ! and address. 
BEG BEE eset 
3 2431 945 IF .OUTFILE_NAM_BLKCNAMSB_ESL) NEQ 0 ' If RMS created an expanded string but couldn't ope. 
3; 2432 946 THEN : 


12 
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: 2433 947 BEGIN ! 
3; 24 ae8 MESSAGE_ID = MSG$_OPENO ! indicate an open err 
3: 2435 94 NAME _ ESttO} = ,OOTFILE UNin BLKCNAMSB_ESLIJ; ! and fillin the expanded name Length 
; re Bey BARE DESC 1] = OUTFILE_XNAME; ! and address. 
1 es 
; aid Bee Satay MSGS OOT WARE DESCE 0 pe png i 5 tp gp a poe a error 
; $ u e name len 
: rr 328 NAME_DESC + = OUT: ~NAME_ E-Desee 4 1 ji ! and Length passed by the CLI. 
3 2464 938 ' | 
; ek 328 If mag tape and operator aborted the mount, make it fatal 
5 2647 961 2 IF .FAB_RABLSFAB_DEV(sdi)] 
3: 2448 96 AND” .FAB_RABCFABSL STV] EQL SS$_ABORT | 
3 Sieh 96 THEN 
3; 2450 964 MESSAGE_ID = MSG$_OPENOUTX; 
3; 2451 965 | 
3 $26 966 ! 
3; 245 967 ! Signal the error condition. 
3 2454 968 : 
3: 2455 969 
3: 2456 P 2970 PUT_MESSAGEX( .MESSAGE_ID, ! Signal ‘‘output open error’ with the following argu 
; 2457 P 2971 ! Number of message arguments 
3; 2458 P 297 NAME _DESC : Address of output name descriptor 
3 2459 P 297 -FAB_RAB FABSL STS), ! Primary RMS completion code | 
; oat 4 4 -FAB_RABCFABSL_STV] ); ' Secondary RMS completion code | 
; 462 976 2! 
: 246 2977 ! Return to the caller. 
3 2464 2978 ! 
3 2465 2979 | 
; $208 4444 RETURN; ! Return to the caller. 
; 2668 2982 1 END; | 
| 
| 
4 o000v oo 00003 Pe lap COPYSRSG_NUREER, zpve R2,R3,R4 : 2890 | 
08 C3 0 SUBL SP : ; 
5 04 AC D S00A movt~ FAB_RAB ADDRESS, _R2 ; 2927 
5 00006 cf % agor§ eevee. OUTFILE-NAM _BLK+3, RO : 2937 | 
gm PB | elt Geta sesiee 0 ee 
04 AE 00006 cr oe a038 MOVAB TFILE_RAME, NAME_DESC+4 ; 3342 | 
50 00006 fF 9A 2 5 18 MOVZBL QUTFILE_NAM_BLK+11, RO : 5945, 
yom 8 Bie | ue fee, ree. By 
4 F MOV fFILE_RNAME, NAME_DESC+4 : 295 
04 AE 00006 cr 9 09 4 MOVAB  QUFFILE E. NAME_DESC $323 | 
| 


12 

COPYMAIN 15-56 -1984 23:39: AX-11 Bliss-32 V4.0-74 P 7 
vo% 12-8081 93:72:98 COPY. SRCJCOPYMAIN.B32; | 29° 31 
53 10A4 8F 3¢ 005¢ 2s: MOVZWL #4260, MESSAGE_ID 5 295 
6f 00006 cr D 0004 Ova OUT _NAME DESC, "NAME_DESC : 295 
0B 40 A 4 E1 00046 3$: BBC # $4 (R2) 4$ + 296 
2c 0c Ag b} O48 CPL i (ro), #44 + 296 
53 10A4 rf }é 00 1 MOVZWL #4260, MESSAGE_ID + 296 
3 DD 6 4$: PUSHL 1p : 297 

4: 1 FB 90 CALLS #1, COPYSMSG_NUMBER : 

7E 90 0 1 7A 0005 MUL * RO, #0, =(SP) F 

50 0 E 8 06 EDIV #8, (SP)+, RO, RO : 

1 3 0 BEQL , : 

7E 08 A2 70 A MOva (R2), =(SP) : 

oN Bp ARM fustne panes : 

9% DD 0075 PUSHL MESSAGE_ID ; 

64 01 FB 0007 CALLS #1, COPYSMSG_NUMBER ; 

0 DD 00078 PUSHL : 

000000006 00 05 FB 007A CALLS #5, LIBSSIGNAL : 

7E 08 A2 nN 00082 5$ MOVQ 8(R2), =(SP) ; 

" fF toe USHA WARE DESC 

53 DD 00088 PUSHL  MESSAGE_ID : 

64 gi FB 0008D CALLS #1, COPYSMSG_NUMBER : 

0 DD 00090 PUSHL : 

000000006 00 05 FB 00092 CALLS #5, LIBSSTOP ; 

04 00099 RET ; 


2982 | 
; Routine Size: 154 bytes, Routine Base: S$CODES + OACA 
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3 re 4 4 ; ! ROUTINE OUT_WRITE_ERROR : NOVALUE = ! RMS output write error action routine 
3; 267 985 1 !44 

3 ot? 2 § : FUNCTIONAL DESCRIPTION: 

3 oo2 ; 8 ! This RMS error action routine sends an output read error message to the user. 

3 247 1 i FORMAL PARAMETERS: 

: 2478 991 1! 

3; 2479 336 1 / None 

; cB 392 | IMPLICIT INPUTS: 

3 24 ¢ 995 1 

3: 246 44 1 i OUTFILE_RAB = Output file RAB 

3 r : 444 ! OUT_NAME_DESC = Output file name descriptor 

$ 999 1 i IMPLICIT OUTPUTS: 

3 24 000 1! 

3 001 1! None 

3; 2489 002 1 

3 00 1 i ROUTINE VALUE: 

3 2491 004 1! 

3: 249 005 1! None 

3 249 006 1: 

3 007 1! SIDE EFFECTS: 

3 2695 008 1: 

3 24696 009 1! None 

3 2497 010 1: 

3; 2498 011 1 i- 

3; 2499 Big 1 

3; 2500 01 BEGIN 

3 2501 014 

3; 250 015 ! 

3; 250 pis ! Signal the output write error. 

Be Bn E 

3; 2506 P 3019 PUT_MESSAGE ( "elation WRITEERR, ! Signal a ‘write error’’ with the following argument | 
3; 2507 P 3020 ! Number of message orgumente 
3; 2508 P 3021 ! Address of output file name descriptor 
: 2509 P 30 é OG NAME. ayt RABSL S18}. is Primary RMS completion code 
3 319 3 ? -OUTF ILE-RABCRABSL_ 54 ' Secondary RMS completion code 
3 21g 025 ! 

3 2} s § ' Return to the caller. 

: $218 058 5° 

3 218 029 RETURN; ' Return to the caller. 

3; 251 4 0 

; 2518 1 END; 


0000 00000 OUT_WRITE_ERROR: 
-@ORD Save noth ng 
7E 0000G CF 7d 00002 MOVQ OUTFILE TRB 8, -(SP) 


383 
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00006 CF 9F 7 PUSHAB OUT NAME DESC : 

1 gD PUSHL @# F 

7E 1002s BF O38 MOVZWL #4306, <(SP) : | 

0000v CF \ FB 0 CALLS #1, COPYSMSG_NUMBER : | 
000000006 00 05 FB 00019 CALLS #5, LIBSSIGNAL : | 
04 00020 RET + 3031. 


; Routine Size: 33 bytes, Routine Base: S$CODES + 0864 


cao 


WI 

23 

vuv0v 
VN 


~ 
—ODOnouw 


SEER 


SSS 
COOOOoooooooo: 
~ 


iw 
~ 
= 
oo 
wm 


UEHEHNG ESRRNE Wet Reng fa roe ls 


COPY.SRCJCOPYMAIN.B (23) 


RMS output close error action routine 
Address of associated FAB or RAB 


This RMS error action routine sends an output close error message to the user. 


PUT _MESSAGE( MSGS_CLOSEOUT, 
OUT_NAME_DESC, 


.FAB_RAB FABSL StS), 
-FABRABLFABSL~STV) ); 


Return to the caller. 


RETURN; 
END; 


! Redefine routine parameter. 


Signal a ‘‘close error’’ with the following argument 
Number of message arguments 
Address of output file name descriptor 
Primary RMS completion code 
Secondary RMS completion code 


' Return to the caller. 


3 0 § 1 GLOBAL ROUTINE COPYSOCLOSE_ERR ( 
s 1 \ FAB_RAB_ADBRESS ) 
: § : ! NOVALOE = 

: 2526 $ 1 fe 

: 5 : : FUNCTIONAL DESCRIPTION: 

; ° 5 1: 

3 8 ee 

3 9 41 } : FORMAL PARAMETERS: 

3 1 ae§ ; FAB_RAB_ADDRESS.ra.v = Address of the associated FAB or RAB 
; 5 Bes { IMPLICIT INPUTS: 

; 2 5 ae : OUT_NAME_DESC = Output file name descriptor 
; 049 1 | IMPLICIT OUTPUTS: 

3 050 1! 

3; 25 051 1! None 

: 2540 p36 1! 

3 2541 05 1 ! ROUTINE VALUE: 

3 20g 054 1! 

3 254 055 1! None 

3 25446 B26 1! 

3 2545 05 1 ! SIDE EFFECTS: 

3 248 058 1! 

3 254 059 1! None 

3: 2548 060 1! 

3: 2549 061 1 !-- 

3; 2550 B86 1 

3 2551 06 BEGIN 

3 236 064 

3; 255 065 BIND 

3 2554 v4] FAB_RAB = .FAB_RAB_ADDRESS : BLOCKC,BYTE); 
Bp BG 

> 255 i Signal tput cl ‘ 
$36 54 gnal an output close error 


1 


| 
| 
i 


112 
04-000" Eheoctate GEERDGE  WMGTTBLSegadg ve-0s 


0000 9000 .ENTRY COPYSOCLOSE_ERR, Save nothing 
50 4 ac 000 MOVL FAB_RAB ADDRESS, RO 
E 8 00 MOVG 8(RO) 
00006 f 9 0 A PUSHAB 0 ; OUT NAME ESC 
7E 105A BF RP 91 MOVZWL #4186 
0000v CF 1 Fs 15 CALLS ny ee spysasG _NUMBER 
000000006 00 8s FB iC CALLS , LIBSSIGNAL 
04 0002 RET 


; Routine Size: 36 bytes, Routine Base: S$CODES + 0885 


WAG 


State 
OO 


3 
& 


os 
eS 


SVSVSVSVSISIS 


SSONOAS 


fo Jo Te] 
wr 


ooo 


Oo 
BRUSLSSSVUSOROAN SS Seno ne wnr—OoOe weno ooo won 


FUSVSVSV SVS 


Set ty 
Soooo 


co 
oO 


FANZS 


Oo 


PPA 
uw 


MMM 3 3 3 3 QOD ODOOOOCO 


aD et a te a ot 


Be Be Se Se Ge Se Se Be Se Be Be Ge Ss Se Se Fe Be Se Ge Fe Se Ge Ge Se Ge Se Ge Gs Se Ge Ge Se Se Se Gs Ss Ge Ge Ge FF Ss SF Ss Se Ss Ss Se Se Se Se Se SSS Se eses es 


ee ee ce eee ee ce ee ce ee ce ce ce ee ce ee ee ce ed ce el ee cee ce el ce ca el ca ee ee ee el ce ee el eel ee 


AFADAAAAAAAAAAAAAAA AAO 


SVOONO VEU “OC OONOUEWN Oo 


wtorononononofrornofon 


ae 
—O0oe 
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GLOBAL ROUTINE COPYSMSG_ ( ! COPY/APPEND message number generator 


UMBER 
ID) = ! Message number 


N 
MSG_ 
lee 
FUNCTIONAL DESCRIPTION: 
This routine return a eshte 5 te or APPEND-specific message id 
by inserting the appcepr jete facility identifier in nig word 
of the wise 3 id which is passed by the caller. This rou 
records the highest severity message encountered. 
FORMAL PARAMETERS: 
MSG_ID.rlu.v = Message id 
! IMPLICIT INPUTS: 
APPEND_COMMAND = APPEND command indicator 
MOST _SEVERE_ERR = Current most severe error id 
OUTFILE_NAM_BLK = Output file name block = wildcard indicator 
IMPLICIT OUTPUTS: 
MOST_SEVERE_ERR = Most severe error id may be updated 
ROUTINE VALUE: 
Actual message id 
' SIDE EFFECTS: 


None 


ine also 


BEGIN 


P 
MSG_ID : BLOCKC,BYTE); 


LOCAL 
ACTUAL_MSG_ID : BLOCKC1]; 


Actual message identifier 
5 
: Calculate the actual message identifier. 


If facility unspecified, 
If this is an APPEND command, 


a -MSG_1D<16,16> EQL 0 
IF shPPEND COED 
ACTUAL_MSG_ID = .MSG_ID + (APPEND_ID * 65536) 
ELSE ACTUAL_MSG_ID = .MSG_ID + (COPY_ID * 65536) 
ACTUAL_MSG_ID = .MSG_ID; 


this is a COPY command 


else use existing code 


} 
j 
— | 


Redefine the form of the input argument 


insert the APPEND facility code into the message i 
nsert the COPY facility code into the message id. 


] 
12 | 
HE$eectaes GERRE  WMISI'SBLEESHRN- Ramey Pee Tt 


| 
; 1 14 ! 
: é ¢ 148 : Update the ‘most severe error’’ if the current error is more severe. | 
: 26 145 2. | 
3; 26355 14 If NOT .ACTUAL_MSG_ID AND ! If the current i t 
: 56 129 (MOST SEVERE ERR OR | Sluber thie ¥6 see firel rrp oa ee 
3: 26 133 eACTUAC_MSG_IBCSTS v-SEVERI TY GTRU ' or the current message severity 
; ° 13? omnes -MOST_SEVERE-ERRCSTSS$V_SEVERITY]) : is greater than the previous severity, | 
3 2640 131 MOST_SEVERE_ERR = .ACTUAL_MSG_ID OR i update the most severe message id 
: eg 138 STS$M_INHIB_MSG; ! and turn on the “suppress message’’ indicator. 
3 264 154 3! 
: ote 136 Return the actual message id to the caller. 
> 266 15 
: i 138 RETURN .ACTUAL_MSG_ID; ! Return the actual message id to the caller. 
5 2649 160 END; 
0004 00000 -ENTRY COPYSMSG_NUMBER, Save R2 ; 3085 
52 0000" cr 9E 0002 HOVAB MOST. SEVERE ERR. R2~ : 
06 AC B85 0000 TSTW MSG_TD+2 3 3132 
1A iF; QO00A BNEQ 3 
08 10 A2 €9 0000C BLBC COPYSCLI_STATUS, 1$ : 3134 
50 04 AC 00710009 or 3 booi9 + 4200356 « MSG_ID, ACTUAL_MSG_ID 3 31 
50 04 AC 00670000 8F Ci 0001B 18: ADDL3 #6750208, MSG_ID, ACTUAL_MSG_ID : 3138 
04 11 00024 BRB 3$ 3 3178 
50 04 AC 00 00026 ¢3: MOVL MSG_ID, ACTUAL_MSG_ID 3; 3140 
17 50 4 OQO2A 35$: BLBS ACTOAL_MSG_ID, 5$ 3: 3146 
: . i a a ee ee Ng 
51 50 03 00 FD 00035 CMPZV #0. #3. ACTUAL_MSG_ID, R1 : 
62 50 10000000 8F C9 So0%e 4$: BISL #268435456, ACTUAL_MSG_ID, MOST_SEVERE_ERR + 3151 
04 00044 5$: RET : 3160 


3; Routine Size: 69 bytes, Routine Base: S$CODE$ + OBA 
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161 1 END 
3183 0 ELUDOM 


-EXTRN LIBSSIGNAL, LIBSSTOP 


; PSECT SUMMARY 

Name Bytes Attributes 

; SGLOBALS 1 WNOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL CON, NOPIC,ALIGN(2) 
; SPLITS ¢ NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 30 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; COPYSCOPY_FILE 180 NOVEC,NOWRT, RD, EXE,NOS LCL, CON, NOPIC,ALIGN(9) 
3; SOWNS 4 LCL, CON,NOPIC,ALIGN(2) 


HR, 
NOVEC, WRT, RD ,NOEXE,NOSHR, 


Library Statistics 


: quesewes SyGbel§ cooeecee Pages Processing 

: File Total Loaded Percent Mapped Time 

; _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 150 1 581 00:01.1 

; COMMAND QUALIFIERS 

H BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:COPYMAIN/OBJ=0BJ$:COPYMAIN MSRC$:COPYMAIN/UPDATE=(ENHS$: COPYMAIN) 
gg 5234 coge + 157 data bytes 


ime : 
Flopsed fase 0 sete 
Lines/CPU Min: 288 ; 
Lexemes/CPU-Min: 2524 
Memory Used: 277 pages 
Compiration Complete 


yyy 41 en 
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